Program P119;
 { Eroare }
var r, s : ^real;
begin
 new(r);
new(s);
 r^:=1; s^:=22;
 writeln('r^=', r^, '  s^=', s^);
 readln;
end.