Program P117;
 { Operaţii cu variabile dinamice }
type AdresaInteger=^integer;
var i, j, k : AdresaInteger;
    r, s, t : ^real;
begin
 { crearea variabilelor dinamice de tipul integer }
 new(i); new(j); new(k);
 { operaţii cu variabilele create }
 i^:=1; j^:=2;
 k^:=i^+j^;
 writeln(k^);
 { crearea variabilelor dinamice de tipul real }
 new(r); new(s); new(t);
 { operaţii cu variabilele create }
 r^:=1.0; s^:=2.0;
 t^:=r^/s^;
 writeln(t^);
 { distrugerea variabilelor dinamice }
 dispose(i); dispose(j); dispose(k);
 dispose(r); dispose(s); dispose(t);
 readln;
end.