Question

дано целое число m>10. Получите целое k, при котором k^2<m. 

Answer 1

var m, k: integer;
begin
     readln(m);
     for k := round(sqrt(m)) downto 0 do
         if (sqr(k) < m) then writeln(k, '^2 < ', m);
end.

Вот так, на Паскале + блок-схема =)