program feleles;
var t:text;
    i,n,x:integer;
    a:array [1..30] of string;
begin
  assign(t,'nevsor.txt');
  reset(t);
  i:=0;
  while not eof(t) do
  begin
    inc(i);
    readln(t,a[i]);
    writeln(a[i]);
  end;
  n:=i;
  close(t);
  randomize;
  x:=1+random(n);
  writeln;
  writeln('Felelo: ',a[x]);
  readln;
end.