{$codepage utf8} VAR p:^byte; i:byte; BEGIN getmem(p,10); fillchar(p^,10,9); for i:=0 to 9 do Write(p[i]);Writeln; p:=ReallocMem(p,15); fillchar(p[10],5,8); for i:=0 to 14 do Write(p[i]);Writeln; p:=ReallocMem(p,5); for i:=0 to 4 do Write(p[i]);Writeln; freemem(p) END.