type
  arv = Object
     x: integer;
     procedure suurus(y: integer);
     procedure liida1;
     procedure kirjuta;
end;


procedure arv.suurus(y: integer);
begin
 x:=y;
end;

procedure arv.liida1;
begin
 x:=x+1;
end;

procedure arv.kirjuta;
begin
 writeln(x);
end;

var a: arv;
begin
 a.suurus(10);
 a.kirjuta;
 a.liida1;
 a.kirjuta;
end.