Лабораторные работы / 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.