2_2

  var f : text;
      a : string;
      len : integer;
begin

  writeLn ( 'Vvedite stroku ' ) ;
  readLn ( a ) ;
  len := length(a);



  assign ( f , 'resultats.txt' ) ;
  rewrite ( f ) ;

  writeLn ( f , a[1] ) ;
  writeLn ( f , a[ len ]  ) ;

  close ( f ) ;

end.