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

program zz1;

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

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

begin

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

read (x);

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

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

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

end.