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

program zz1;

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

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

begin

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

read (a);

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

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

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

end.