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

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

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

var x:real;beginreadln(x);writeln(x/2)end.(минимализм, но программа рабочая)