нужно нарисовать 3 блок-схемы..

[ilnar21]

Срочно нужно нарисовать 3 блок-схемы..

1)
Текст программы.

uses crt;
var i,n:integer;
s,a:real;
begin
clrscr;
writeln('введите число n');
readln(n);
S:=1;
for i:=1 to n do
begin
a:=1/(i*(i+1)*(i+2));
S:=s*a;
end;
writeln ('s=',s);
readkey
end.



2)
Текст программы.
uses crt;

var f: array [1..100] of string;
o: array [1..100] of real;
v: array [1..100] of integer;
i,j,N:integer;
z:real;
Sum:integer;

begin

for i:=1 to 100 do
begin
writeln('Vvedite dannie o rabotnike №',i);
write('Familia ');
read(f[i]);
if f[i]='0' then break;
write('Oklad ');
read(o[i]);
write('Vozrast ');
readln(v[i]);
end;

writeln('Vvedite znachenie oklada');
readln(z);

N:=0;
for j := 1 to i-1 do
if (o[j]<z) then
begin
Sum:=Sum+v[j];
inc(N);
end;

writeln('Sredniy vozrast ',Sum/N:2:2);
readln;
end.


3)
Текст программы.

Uses Crt;
Var e,s,a:real;
n:integer;
begin
ClrScr;
Readln(e);
s:=0;
n:=1;
Repeat
n:=n+1;
a:=1/((n-1)*(n+1));
s:=s+a;
Until Abs(a)<e;
Writeln('n=',n);
Writeln('s=',s);
Writeln('Точный ответ=',3/4);
Readkey
end.

[ROMA2PVT]

Вставляй после начала блоки описания переменных(в каждой проге).И готово.

[ilnar21]

Огромное спасибо...Выручил...