РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR

var

 n, s: Integer;

begin

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

  Read (n);

  s := trunc (sqrt (n));

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

  Readln;

end;

Объяснение: