Вычислить с блок схемы и программы паскаля: 1)произведение 7 чисел (a,b,c,d,e,f,g); 2) произведение первых 7 чисел (not н./цел. от 1 до 7)

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.

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