program Addition;
type
  arvud = Object
     x,y,z: integer;
     procedure suurus(x2,y2: integer);
     procedure liida1;
     procedure kirjuta;
end;


procedure arvud.suurus(x2,y2: integer);
begin
 x:=x2;
 writeln(x);
 y:=y2;
 writeln(y);
end;

procedure arvud.liida1;
begin
 z:=2*x+2*y;
end;

procedure arvud.kirjuta;
begin
 writeln(z);
end;

var a: arvud;
begin
 a.suurus(10,15);
 a.kirjuta;
 a.liida1;
 a.kirjuta;
end.