Найти все натуральные числа a, b и c из интервала от 1 до 20, для которых выполняется равенство: a + b = c2 — Pascal(Паскаль)

CONST
  max = 20;
VAR
 A, B, C: Integer;
BEGIN
 WriteLn('A + В = C*C');
 for a:=1 to max do
  for b:=1 to max do
   for c:=1 to max do
     if a + b = c*c then Write(a:2,' + ',b:2,' = ',c*c:3,'   ');
 WriteLn;
END.