Напишите программу, которая получает с клавиатуры натуральное число и вычисляет целый квадратный корень из него – наибольшее число, квадрат которого не больше данного числа.
Язык-PascalABC

var

 n, s: Integer;

begin

   Write ('Введите натуральное число: ');

   Read (n);

   s := trunc (sqrt (n));

   Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));

   Readln;

end;