program kontroll3;
var
 s: string;
 f: text;
begin
 assign(f, 'nimed.txt');
 {$I-}
 reset(f);
 {$I+}
 if IOResult<>0 then
    begin
      writeln('Fail nimed.txt puudub');
      halt;
    end
 else
    begin
      readln(f, s);
      writeln('Esimene rida on ',s);
    end;
end.