Дано вещественное число х. напишите программку, которая убавляет в 2 раза

program zz1;

var s:integer; // вводим переменную целого типа

x:real; // вводим переменную вещественного типа

begin

write( введите данное вещественное число );  // вводим с клавиатуры вещественное число

read(x);

s:=trunc(x); // вычисляем целую часть числа x

// выводим ответ в формате 5 символов для числа и два знака после точки

write(  уменьшенная в 2 раза целая часть числа х = , s/2:5:2 );

end.