построить блок схему программы

[VeB_SteR]

program lr_8;
uses crt;
var y,u:integer;
res:real;
function summ(a,b:integer):real;
begin
summ:=a*a+b*ln(a*a)/sin(b)*sin(b);
end;
procedure resultat;
begin
writeln (res:8:2);
end;
begin readln (y,u);
res:=summ(y,u);
resultat;
readln;
end.

[VeB_SteR]

program lr_6;
uses crt;
const n=6;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,min,max,jmax:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
b[i]:=a[i,1];
jmax:=1;
for j:=1 to n do
if a[i,j]<b[i] then
begin
b[i]:=a[i,j];
jmax:=j;
end;
writeln(i,'  min=',b[i]);
end;
min:=b[1];
for i:=1 to n do
if b[i]>min then
max:=b[i];
write('max',max);
readln;
end.

[VeB_SteR]

program lr_4_2;
var f, x:real;
begin x:=2;
repeat
f:=ln(2*x);
writeln('x=', x:4:1, 'f(x)=', f:6:2);
x:=x+0.4;
until x>6+0.4;
readln
end.

[Mad_Cat]

[Stilet]

VeB_SteR

http://paslab.ru/blok-shema.php
Просто вставляй код и наслаждайся рисунками.