program kettomegharom;
uses AritUnit,crt;
var
   e,harom:egeszszam;
   er:string;

begin
     clrscr;
     osszead(ketto,egy,harom);
     osszead(ketto,harom,e);
     kiiras(e,'Eredmeny: ');
end.