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

program zz1;

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

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

begin

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

read(a);

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

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

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

end.