напишите блоксхемы

program V16_N1;
uses crt;
var
i,j,k:integer;
x,z:real;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ i,j,k: ');
read(i,j,k);
if i=j then writeln('„Ґ«Ґ*ЁҐ ** 0 !!!');
x:=i*j-sqrt(abs(0.5*(sqr(i)+k)/(i-j)));
z:=sqr(x)-sqr(cos(x));
writeln('x= ',x:0:4);
writeln('z= ',z:0:4);
end.

program V16_N2;
uses crt;
var
k1,k2,k3,y1:integer;
y2:real;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ k1,k2,k3: ');
read(k1,k2,k3);
if k1>5 then y1:=1;
if k1=5 then y1:=k1*k2
else y1:=sqr(k3);
if y1<k1 then y2:=sqrt(abs(k1-k2))
else y2:=sqr(k1)/k2;
writeln('y1= ',y1);
writeln('y2= ',y2:0:4);
end.

Program V16_N3;
uses crt;
var
 Fam    :array[1..3]of string[15];
 i,k    :integer;
BEGIN
 clrscr;
 k:=0;
 for i:=1 to 3 do begin
  write('‚ўҐ¤ЁвҐ ',i,'-о д*¬Ё«Ёо: ');
  readln(Fam[i]);
  if Fam[i][1]='Њ' then k:=1;
 end;
 if k = 0 then writeln('”*¬Ё«ЁЁ ** ЎгЄўг "Њ" *Ґв!!!')
          else begin
                writeln('”*¬Ё«ЁЁ ** ЎгЄўг "Њ" Ґбвм:');
                for i:=1 to 3 do if Fam[i][1]='Њ' then writeln(Fam[i]);
              end;
 
END.

program V16_N4;
uses crt;
var
c,d,f:array[1..9]of real;
i,g:integer;
s1,s2:real;
begin
randomize;
clrscr;
s1:=0;s2:=0;
writeln('‚ўҐ¤ЁвҐ ¬*ббЁўл c Ё d, §*⥬ зЁб«® g ');
for i:=1 to 9 do begin
c[i]:=random($FF);
s1:=s1+c[i]-g;
end;
for i:=1 to 9 do begin
d[i]:=random($FF);
s2:=s2+d[i]-g;
end;
writeln('ђҐ§г«мвЁагойЁ© ¬*ббЁў: ');
for i:=1 to 9 do begin
f[i]:=s1/s2*(c[i]-d[i]);
writeln(f[i]:0:4);
end;
end.

Program V16_N5;
uses crt;
var
 a,b,h,x,y,p    :real;
begin
 clrscr;
 write('‚ўҐ¤ЁвҐ a,b,h: ');
 readln(a,b,h);
 x:=a;y:=0;p:=1;
 while x<=b do begin
  y:=y+p*sqr(x);
  p:=p+2;
  x:=x+h;
 end;
 writeln('Y = ',Y:0:5);
 while not keypressed do;
end.

Program V16_N6;
uses crt;
var
 A,B        :array[1..20]of real;
 T          :real;
 i,Amin,Bmax:integer;
BEGIN
 clrscr;
 write('‚ўҐ¤ЁвҐ ¬*ббЁў A: ');
 Amin:=9999;
 for i:=1 to 20 do begin
  read(A[i]);
  if A[i]<Amin then Amin:=i;
 end;
 write('‚ўҐ¤ЁвҐ ¬*ббЁў B: ');
 Bmax:=-9999;
 for i:=1 to 20 do begin
  read(B[i]);
  if B[i]>Bmax then Bmax:=i;
 end;
 T:=A[Amin];A[Amin]:=B[Bmax];B[Bmax]:=T;
 clrscr;
 writeln;
 writeln('ђҐ§г«мвЁагойЁҐ ¬*ббЁўл:');
 writeln('A':10,'B':10);
 writeln;
 for i:=1 to 20 do begin
  writeln(A[i]:10:0,B[i]:10:0);
 end;
END.