Program Pointer


uses crt;
var
nama,nim:^string;
shift,nomeja:integer;

begin
clrscr;
new(nama);
nama^:='M. DENNY ER';
new(nim);
nim^:='j1f114082';
shift:=1;
nomeja:=082;



writeln(nama^);
writeln(nim^);
writeln(shift);
writeln(nomeja);

nama := nim; writeln(nama^);
nama^:='DENNY';
writeln(nama^);
nim^:='jf114082';
writeln(nim^);


readln;
end.