Question

Составить программу которая вводит с клавиатуры целое число, которое уменьшает его в 2 раза и результат выводит на экран.

Answer 1

Вот держи :
Program Hello; 
var a : integer;
begin     
        writeln('Введите любое число :'); 
        readln(a); 
        writeln(a , ' : 2 = ' , a/2);
end.

Answer 2

Так надо? Можешь сам подредактировать как надо

Answer 3

var x:real;
begin
readln(x);
writeln(x/2)
end.

(минимализм, но программа рабочая)