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

Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
end.