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

program zz1;

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

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

begin

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

read(x);

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

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

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

end.