Контрольная работа: Автоматизований аналіз злочинності по областям

k:=k+1;

if z=72 then

k:=k-1;

if k=5 then

k:=4;

if k=0 then

k:=1;

if k=1 then

begin

ram (9,6, length(s1)+10,9,1,14);

ram (24,8, length(s1)+25,11,1,1);

end;

if k=2 then

begin

ram (9,6, length(s1)+10,9,1,1);

ram (24,8, length(s1)+25,11,1,14);

ram (9,10, length(s1)+10,13,1,1);

end;

if k=3 then

begin

ram (24,8, length(s1)+25,11,1,1);

ram (9,10, length(s1)+10,13,1,14);

ram (24,12, length(s1)+25,15,1,1);

end;

if k=4 then

begin

ram (9,10, length(s1)+10,13,1,1);

ram (24,12, length(s1)+25,15,1,14);

ram (9,14, length(s1)+10,17,1,1);