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)<N) then
writeln (a:4, b:4, trunc (sqrt(a*a+b*b)):4);
end.