Type chain = ^elem;
elem = record
data : integer;
link : chain
end;
var
p, q : chain.
Нарисовать структуру значения переменной р в памяти после выполнения (независимого) следующих групп операторов:
1) new(p); p^ data := 4; p^.link := nil;
2) new(p); p^.data := 7; p^.link := p;
3) new(q); q^ data := 2; q^.link := nil;
new(p); p^.data := 1; p^.link := q;
4) new(p); p^.data := 5; new(p^.link); p^.link^ := p^ .