Дано вещественное число. Напишите программу, которая возводит в квадрат целую часть данного числа и выводит на экран монитора результат.
Program gt; var a:real; b:integer; begin readln(a); b:=trunc(a)*trunc(a); writeln(b); end.