Pemrograman delphi untuk pythagoras dan fibonacci

Delphi untuk pythagoras
var i,k,j,m,n, phytg:integer;
a,b :real;

begin
phytg :=0;
n:=StrToInt(Edit1.Text);
for i:=1 to n do
for j:=1 to i do
for k:=1 to j do
begin
a:=i*i;
b:=j*j + k*k;
if k<= n then
begin
if a=b then
begin
phytg:=phytg+1;
ListBox1.Items.Add('bilangan phytagoras ke-'+IntToStr(phytg)+'='+intToStr(k)+';'+IntToStr(j)+';'+IntToStr(i));
end;
end;

fibonacci :
var
i,a,b,n,fibonacci:integer;
begin
n:=strtoint(edit1.text);
a:=1;
b:=1;
listbox1.items.add('bil.Fibonacci ke-1= 1');
listbox1.Items.add('bil.fibonacci ke-2= 1');
for i:=3 to n do
begin
fibonacci:=a+b;
listbox1.Items.add('bil.Fibonacci ke-'+ inttostr(i)+'= '+inttostr(Fibonacci));
a:=b;
b:=fibonacci;
end;
end;