генератор чисел Пифагора

[Майк...]

Друзья, мне дали задачу индивидуальную, но я не разобрался с ней!
Я её не понял Обьясните пожалуйста. Очень срочно надо!
Заранее очень благодарен.

Составить программу-генератор чисел Пифагора a,b,c (c^2 = a^2 + b^2) .
В основу положить формулы : a=m^2 + n^2 , b=2mn , c=m^2 + n^2 (m,n - натуральные, 1<m<k , 1<n<k , k - данное число).
Результат вывести на экран в виде таблицы из пяти столбцов: m,n,a,b,c.

[Stilet]

Ну я так понял. Есть m=1..10 и n=1..10
Нужно два цикла, в которых будут выщитываться формулы:

for i:=1 to m do begin
 for j:=1 to n do begin
  A:=m*m+n*n;
  b:=2*m*n;
  c:=sqrt(sqr(a)+sqr(b)); {Вот тут ты с условием определись.}
  write(m:3,n:3,a:3,b:3,c:3);
 end;
end;

[Майк...]

И это все???
помоему в условии что то не так

[Stilet]

И это все???

Это ядро.
Ввод М и Н сам допиши

помоему в условии что то не так

Вот и я о том же...

[Майк...]

смотри вот что у меня

[Stilet]

Ну вообще-то M,N - integer. А остальные Real
Плюс:

write(m:3,n:3,a:5:2,b:5:2,c:5:2);

[Майк...]

поменял, все равно так

Program sdgfg;
var m,n:integer; i,j,a,b,c:real;
Writeln(m);
readln(m);
writeln(n);
readln(n);
begin
for i:=1 to m do begin
 for j:=1 to n do begin
  A:=m*m+n*n;
  b:=2*m*n;
  c:=sqrt(sqr(a)+sqr(b));
  write(m:3,n:3,a:3,b:3,c:3);
 end;
end;
end.

[Anatole]

а ты не пробовал операторы ввода-вывода поместить после первого BEGIN?

From Stilet: Дополню чтоб не создавать пост:

Program sdgfg;
var m,n:integer; i,j,a,b,c:real;
begin

Writeln('m ');readln(m);
writeln('n ');readln(n);
for i:=1 to m do begin
....