
2)Сформировать таблицу Пифагора.
как это делать вообще?(((
for i:=1 to 5 do
for j:=1 to 5 do begin
an:= 1;
for k:=1 to n do an:= an*a[i,j];
writeln(i:4,j:4,an:0:3)
end;
for i:=1 to 9 do begin
for j:=1 to 9 do write(i*j:4);
writeln
end;