Задача на перебор вариантов - Pascal ABC

Формулировка задачи:

Помогите пожалуйста.Для заданного числа проверьте, является ли оно суммою квадратов двух чисел.

Пожалуйста помогите

Решение задачи: «Задача на перебор вариантов»

Листинг программы

var i,j,n:longint;
    f:boolean;
begin
 f:=false;
 writeln('n = ');readln(n);    
 for i:=0 to trunc(sqrt(n)) do
  for j:=i to trunc(sqrt(n)) do
   if i*i+j*j=n then begin f:=true;writeln(i,'^2 + ',j,'^2 = ',n)end;
  if not f then writeln('---') 
end.

Объяснение кода листинга программы

Переменная f инициализируется значением false.
Выводится сообщение n =, после чего считывается значение переменной n с помощью функции readln().
Запускается цикл for, который выполняется от 0 до округленного значения квадратного корня из n.
Внутри цикла for также запускается вложенный цикл for, который также выполняется от 0 до округленного значения квадратного корня из n.
В каждом внутреннем цикле проверяется условие i*i + j*j = n. Если это условие истинно, то переменная f устанавливается в значение true.
Если значение переменной f остается ложным после выполнения всех внутренних циклов, то выводится строка ---.
Конец программы.