Циклы с известным числом повторений

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.

Var          a : array [1..6, 1..7] of integer;           i, e, col, row : integer; begin       for i : = 1 to 6 do             for e : = 1 to 7 do                 a[i, e] : = random(100);       for i : = 1 to 7 do col : = col + a[2, i];       for i : = 1 to 6 do row : = row + a[i, 3];       if col > row then writeln('2-го столбца');       if col < row then writeln('3-ей строки');       if col = row then writeln('равны');       readln; end.

Pascalabc var x,y,z: real; k,m,n: integer; begin k: =0; m: =0; n: =0; writeln('введите первое   число'); readln(x); writeln('введите второе   число'); readln(y); writeln('введите третье число'); readln(z); if x> 0 then k: =k+1 else if x=0 then m: =m+1 else n: =n+1; if y> 0 then k: =k+1 else if y=0 then m: =m+1 else n: =n+1; if z> 0 then k: =k+1 else if z=0 then m: =m+1 else n: =n+1; writeln('количеcтво положительных чисел : ',k); writeln('количеcтво нулевых чисел : ',m); writeln('количеcтво отрицательных чисел : ',n); end.