program pascal bilangan phytagoras

Program Bilangan_Phytagoras;
uses crt;
var a,b,c,d,e:longint;
begin clrscr;
write('masukkan batas angka yang paling besar? '); readln(d);
for a:= 3 to d do
begin
for b:= a to d do
begin
for c:= b to d do
begin
if sqr(a)+sqr(b)=sqr(c) then
writeln(a:7,b:7,c:7);
end;end;
end; readln end.