Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 47 стр.

UptoLike

{Проверка стека на пустоту }
Function Empty:boolean;
begin
Empty:=Stack=nil
end;
{********************************}
{Процедура чтения}
procedure InitIO;
var
i:integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(input,M);
readln(input,N);
readln(input,NOfM);
For i:=1 to NofM do
readln(input,Monkeys[i])
end;
{*****************************************}
{----------------Алгоритм ------------------}
{Функция,"пытающаяся" расшифровать очередной маршрут}
{Если удалось построить план ,возвращает true}