Блок схема к двум программам

[Лярик]

Пожалуйста помогите составить блок схему к двум программа:

Вот 1:

program KKR2;
uses crt;
var
i, k: integer;
x, e, n, a, b, c, f, h, follow : real;
begin
clrscr;
writeln(' Вычисление таблицы значений функции, заданной в виде разложения в ряд.');
writeln('Введите шаг изменения аргумента:');
readln(h);
repeat
write('Введите левую границу интервала вычисления функции :');
readln(a);
write('Введите правую границу интервала вычисления функции :');
readln(b);
write('Задайте точность вычислений:');
readln(e);
until (b>a) and (e>0);
x := a;
i := 1;
while x < b do
begin
f := 0;
k := 1;
follow := 1;
repeat
c:= k*sin(x)*sin(x)/(k+1);
follow := follow * c;
f := f + follow;
Inc(k);
until abs(follow)<e;
writeln(i:3, x:6:2, f:8:4, k:4);
x := x + h;
inc(i);
end;
readkey;
end.



Вот 2:

program kkrk3;

var
i,j,k,l:integer;
a:array [1..50, 1..30] of integer;
min,max,im1,im2:integer;
begin

write('K=');
readln(k);
Write('L=');
readln(L);

for i:=1 to k do begin
for j:=1 to l do
begin
a[i,j]:=random(10)+2;
Write(a[i,j]:4);
end;
writeln;
end;
writeln('---------------------');
for j:=1 to l do
begin
min:=a[1,j];
max:=a[1,j];
im1:=1;
im2:=1;
for i:=2 to k do begin
if a[i,j]>max then begin max:=a[i,j];im1:=i;end;
if a[i,j]<min then begin min:=a[i,j];im2:=i;end;
end;
a[im1,j]:=1;
a[im2,j]:=-1;
end;
for i:=1 to k do begin
for j:=1 to l do
Write(a[i,j]:4);
writeln;
end;
readln;
end.