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

program zz1;

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

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

begin

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

read(a);

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

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

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

end.