FreePascal.ru

Код: Выделить всё

type rec = record a, b: Integer; end;

var r: ^rec;

begin
GetMem(r, Sizeof(rec)* 512);
r[511].a:= 512;
end.

Код: Выделить всё

var buf: ^Char;
begin
        GetMem(buf, 512);
        Buf[0]:= 'A';
        Buf[511]:= 'B';
        Write(Buf[0], Buf[511]);
end.

Код: Выделить всё

var i: Byte;
begin
  for i:=1 to 500 do
        Writeln(output, real(i):6:2);
end.