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

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.

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