Вывести все числа от 1 до n в таблице:
n ; 1/2n ; n*n ; n*n*n ; n*n*n*n

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin   var n:=ReadInteger('n=');   var a:=new string[5,n+1];   a[0,0]:='n'; a[1,0]:='1/2*n'; a[2,0]:='n*n'; a[3,0]:='n*n*n'; a[4,0]:='n*n*n*n';   for var i:=1 to n do   begin     a[0,i]:=IntToStr(i); a[1,i]:=FloatToStr(i*0.5); a[2,i]:=IntToStr(i*i);      a[3,i]:=IntToStr(i*i*i); a[4,i]:=IntToStr(i*i*i*i);   end;   a.Println(7);end.Пример:n= 3         n       1       2       3   1/2*n    0.5       1    1.5      n*n       1       4       9   n*n*n       1       8     27n*n*n*n      1     16    81