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

program zz1;

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

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

begin

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

read (a);

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

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

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

end.