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

program zz1;

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

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

begin

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

read(a);

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

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

write(' квадрат целой части данного числа а = ', sqr(s) );

end.