Question

СРОЧНО ЗАДАНИЕ 4 Написать на языке ПАСКАЛЯ!!!!

Answer 1

Var
a:real;
begin
readln(a);
a:=a/2;
writeln(a);
end.