program PascalGuru;
var f,g:text;
procedure vvod(var f1:text);
var
a:string;
i,l:integer;
begin
writeln('skolyko strok');
readln(l);
rewrite(f1);
writeln('vvedi text');
for i:=1 to l do
begin
readln(a);
writeln(f1,a);
end;
close(f1);
end;
procedure vvyvod(var f1:text);
var
a:string;
begin;
reset(f1);
while not eof(f1) do
begin
readln(f1,a);
writeln(a);
end;
close(f1);
end;
procedure iskaty(var f1,f2:text);
var
a,s:string;
k:integer;
begin
reset(f1);
rewrite(f2);
writeln('vvedite iskomoe slovo');
readln(a);
k:=0;
while not eof(f1) do
begin
readln(f1,s);
if pos(a,s)<>0 then k:=k+1;
end;
if k<>0 then begin writeln(f2,'esty slovo'); writeln('esty slovo'); end
else begin writeln(f2,'net slovo'); writeln('net slovo'); end;
close(f2);
close(f1);
end;
begin
assign(f,'D:/input.txt');
assign(g,'D:/on.txt');
vvod(f);
vvyvod(f);
iskaty(f,g);
readln;
end.