НЕОБХОДИМО РЕШИТЬ ЧЕРЕЗ ЦИКЛ С ПОСТУСЛОВИЕМ, ОТВЕТ ТИПА
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
ПРИНИМАТЬСЯ НЕ БУДЕТ
