type T=record
	n:integer;
end;
var a,b:T;
BEGIN
a.n:=5;
b:=a;
a.n:=10;
writeln(b.n);
END.