Лабораторные работы / Laba10 / 4

Program IndexExp;
uses crt, dynFile , dyndeq;

var n,i: integer;
k: info;
deq: TDeq;
Ofile: Tfile;



begin
writeln('‚ўҐ¤ЁвҐ n - Є®«ЁзҐбвў® н«Ґ¬Ґ­в®ў Ё§ Є®­ж  ¤ҐЄ  ');
readln(n);
i:=1;
while (i<= n) and not EmptyDeq(Deq) do
begin
getFinishDeq(Deq, k);
addfile(OFile, k);
i:=i+1;
end;
if i > n then
writeln('ѓ®в®ў®')
else
begin
write('ЋиЁЎЄ . ‚ ¤ҐЄҐ ­Ґ Ўл«® ', n, ' н«Ґ¬Ґ­в®ў. „®Ў ў«Ґ­­® ў Ї®б«Ґ¤®ў вҐ«м­®бвм');
writeln(i-1, ' н«Ґ¬Ґ­в®ў. „ҐЄ Їгбв.');
end;
readln;
end.