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

begin

textcolor(4);

writeln('FAil ne naiden');

end

else

begin

tread(v,h);

if v=#13 then

begin

assign(f,'d:\ret');

erase(f);

write('STERTO');

end;

end;

readln;

end;

{==================}

begin

st1:='Informaciya';

st2:=' prosmotr';

st3:=' udalenie';

st4:=' Vihod';

po4atik(st1,st2,st3,st4);

strila(4,1);

q:=1;

repeat

newreadkey(z,v);

case v of

75:q:=q-1;