Написать программу, которая запрашивает ввод вещественного числа в переменную а, делит это число на 3 и прибавляет в переменную а. выводит результат на экран.

Var a:real; 
begin 
writeln('Введите число а'); 
read(a); 
a:=a/3+a; 
writeln(a); 
end.