составить блок-схему

Program Lab1;
Uses Crt;
Var X,Y,A,B,F:Real;
Begin
ClrScr;
WriteLn (' Ввод значений переменных');
WriteLn (' введите значение X:');
Read (X);
WriteLn (' введите значение Y:');
Read (Y);
WriteLn (' введите значение A:');
Read (A);
WriteLn (' введите значение B:');
Read (B);
F:=(x* cos(B))/sqrt(A)+exp(2*Y);
WriteLn (' ОТВЕТ');
Write ('F=',F);
ReadKey;
End.

program lab2;
Uses Crt;
Var X: Integer;
F:Integer;
Begin
ClrScr;
Writeln ('Введите значение X');
Read (X);
if (1<X)and (X<=2)then F:=X*X
else if X>2 then F:=-X
else F:=0;
Writeln ('X=',X:2,'F=',F:2);
ReadKey;
End.

program lab4;
uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,k:byte;
    b,sg,sa:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
//поскольку про положительные числа в условии ничего нет
//будем считать что все положительные, иначе не посчитать сред. геометр.
  a[i]:=20*random;
  write(a[i]:5:1);
 end;
writeln;
writeln;
write('Введите число для сравнния B=');
readln(b);
sg:=1;sa:=0;k:=0;
for i:=1 to n do
if a[i]>b then
 begin
  k:=k+1;
  sg:=sg*a[i];
  sa:=sa+a[i];
 end;
if k=0 then write('Элементов больше ',b:0:1,' нет!')
else
 begin
  sg:=exp(ln(sg)/k);
  sa:=sa/k;
  writeln('Среднее геометрическое=',sg:0:2);
  writeln('Среднее арифметическое=',sa:0:2);
 end;
readln
end.