Блок-схема программы(Паскаль)

[Андрей77777]

Помогите кто знает,составить блок схему к программе по Функциям
program lab17_1;
var
x1,x2,r,k,l:real;

function sel(h,m:real):real;
var f:real;
begin
f:=sin(h)-exp(h)+ln(m);
sel:=f;
end;

begin
write('Введіть значення x1, x2 ');
readln(x1,x2);
k:=x1-x2;
l:=x1*x2;
r:=sel(l,k)/sel(k,k);
writeln('R=',r);
end.

[Вадим Мошев]

воспользуйтесь программой
www.fceditor.com