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

program zz1;

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

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

begin

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

read(a);

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

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

write(' целая часть числа a = ', s );

end.