Рабочее пространство на компьютере, которое во множественном числе дало название одной из всемирно популярных ос

Чего-то я тоже не че не понемаю

Program massiv; var  a: array [1..100] of integer; p,n,c: integer;         begin     writeln('vvedite chislo p');     readln(p);               c: =0;               for n: =1 to p do               begin                 a[n]: =n;                 c: =c+a[n];               end;     writeln(c); end.

1) var a,b,c,d,e,f,g: real;

    begin

      readln(a,b,c,d,e,f,g);

      writeln(a*b*c*d*e*f*g);

    end.

2) var a,i,s: integer;

    begin

      s: =1;

      a: =0;

      for i: =1 to 7 do begin

        a: =a+1;

        s: =a*s;

                              end;

    writeln(s);

  end.

вот программы. по ним составь блок схемы.