10 задача. Составить программу-генератор

Question

10 задача. Составить программу-генератор

Answer 1

Const k = 10;
Var a,b,c,m,n : Integer;
Begin
  For m:=1 to k do
   For n:=1 to k do
   Begin
     a:=sqr(m)-sqr(n);
     b:=2*m*n;
     c:=sqr(m)+sqr(n);
     Writeln(m:5,n:5,a:8,b:8,c:8);
   end;
end.