Помогите дорешать задачу по информатике
Натуральные числа a, b, c, называются числами Пифагора, если выполняется условие a^2+b^2=c^2. Напечатать все числа Пифагора меньшие N.

Спасибо огромное ♥

Пожалуйста.

var n,a,b,c,d:integer;beginreadln(n);for a:=1 to n-1 do for b:=a to n-1 do  begin  d:=a*a+b*b;  c:=1;  while c*c<d do c:=c+1;  if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);  end;end.Пример:203 4 55 12 136 8 108 15 179 12 15