Question

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

Answer 1

program test;
var number: real; temp: integer;
begin
   write('Enter the number: ');
   readln(number);

   temp:=trunc(number);
   writeln(temp, '^2=', temp*temp);

   readln;
end.