2_1

  var f : text;
      a , b : integer;
begin

  writeLn ( 'Vvedite pervuju cislo : ' ) ;
  readLn ( a ) ;
  writeLn ( 'Vvedite vtoruju cislo : ' ) ;
  readLn ( b ) ;



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

  writeLn ( f , a*a ) ;
  writeLn ( f , b*b ) ;

  close ( f ) ;

end.