Вычислить с помощью блок схемы и программы паскаля: 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. Вот программы. По ним составь блок схемы.