Блок-схема

[Андрей77777]

Помогите пожалуйста составит блок схему к программе по ПРОЦЕДУРАМ
program lab17_2;
type mas=array [1..4] of real;
var k,p,t,s,f,r:real; x,y:mas;

procedure KP(a:mas; var max,sum:real);
var k,i:integer;
begin
sum:=0;
writeln('Введіть розмірність масиву');
readln(k);

for i:=1 to k do
begin
writeln('Введіть ',i,'-й елемент масиву');
2 readln(a[i]);
sum:=sum+a[i];
end;

max:=a[1];
for i:=2 to k do
if a[i]>max then max:=a[i];
end;

begin
KP(x,p,t);
KP(y,k,s);
f:=(sqr(t)*sin(s))/sqrt(t*s);
r:=p+sqr(k);
writeln('F=',f,' R=',r);
end.

[BDA]

FCEditor в помощь.