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

program zz1;

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

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

begin

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

read(x);

s:=round(x); // округляем до наиблежайшего целого

// выводим ответ

write( целая часть числа x, округлая до наиблежайшего целого = , s );

end.