Помогите пожалуйста! уровень 2 номер 1

Question

Помогите пожалуйста! уровень 2 номер 1

---

Answer 1

Var a,b,N: integer;
begin
writeln ('Введите натуральное число N');
readln (N);
for a:=1 to N do
for b:=1 to N do
if (sqrt (a*a+b*b)=int (sqrt (a*a+b*b))) and ( sqrt (a*a+b*b)writeln (a:4, b:4, trunc (sqrt(a*a+b*b)):4);
end.