program viidad;
var arv1, arv2, summa: ^integer;
begin
     writeln('Esimene arv > ');
     New(arv1);
     readln(arv1^);
     writeln('Teine arv > ');
     New(arv2);
     readln(arv2^);
     New(summa);
     summa^:=arv1^ + arv2^;
     writeln('Summa on ',summa^);
     readln;
end.