Блок схемы

const N=10;
var
oper: string;
i,j,x,y,wkr,incr,m,k: integer;
ms: array[1..N, 1..N] of integer;
label MENU, FINISH;
 
begin
MENU:
if oper='finish' then goto FINISH;
writeln('ievadiet skaitli massivam');
readln(wkr);
for j:=1 to N do
for i:=1 to N do
ms[i,j]:=0;
 
k:=5;
m:=6;
incr:=1;
for y:=3 to 8 do
    begin
        for x:=k to m do
if (x<7) and (x>4) and (y>4) and (y<7) then
begin
if (y>=5) and (y<6) then incr:=0 else if (y=6) then incr:=-1;
end
else begin
ms[x,y]:=wkr;
wkr:=wkr+1;
end;
k:=k-incr;
m:=m+incr;
end;
 
for i:=1 to N do
begin
writeln;
for j:=1 to N do
write(ms[i,j]:7)
end;
 
writeln;
writeln('Lai turpinatu ievadi jebkuru simbolu');
goto MENU;
FINISH:
end.

function F(x,e:real; var i:integer):real;
var s,si,t:real;
    {i:integer;}
begin
s:=0;
si:=1;
t:=1;
i:=0;
while abs(s-si)>e do
begin
s:=si;
i:=i+1;
t:=t*x*x;
si:=si+t/(2*i*(2*i-1));
end;
F:=si;
end;
 
var xn,xk,dx,e,y:real;
    k:integer;
 
begin
dx:=0.05;
xn:=0.1-dx;
xk:=0.5;
repeat
write('Ievadietfunkcijas e aprekinu precizitati e(0,1) e=');
readln(e);
until(e>0)and(e<1);
while xn<=xk do
begin
xn:=xn+dx;
y:=F(xn,e,k);
writeln('x=',xn:4:2, ' Loceklu skaits rindaa= ',k, ' Rinda=',y:0:6,' Standartfunkcija=',(exp(xn)+exp(-xn))/2:0:6);
end;
writeln;
readln;
end.