METHOD / МКП / Lab_ASCII / Pas_mem

Program mem_p;
Uses crt,windos;
var

A,B,c,d,t:byte;
x,y,z:word;

{========================STRAT PROGRAM==================}
{=======================================================}
BEGIN

clrscr;
A:=112;
b:=Seg(a);
c:=Ofs(a);
A:=A+16;
D:=mem[seg(a):Ofs(a)];

mem[seg(a):Ofs(a)]:=156;

D:=mem[seg(a):ofs(a)];


memw[108:108]:=257;

t:=memw[108:108];

x:=memw[108:108];

c:=Seg(x);
d:=Ofs(x);
end.