1_1

  var f : text;
      a , b , c , sum : Integer;
begin

  assign ( f , 'file.dat' ) ;
  // nazvanije pomenjajte i sprosite kakoe u nego?
  reset ( f ) ;

  readLn ( f , a ) ;
  readLn ( f , b ) ;
  readLn ( f , c ) ;

  sum := a + b + c ;

  writeLn ( sum ) ;

  close ( f ) ;

end.