mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 03:22:40 +02:00
16 lines
216 B
ObjectPascal
16 lines
216 B
ObjectPascal
{$mode objfpc}
|
|
uses sysutils;
|
|
var i:integer;
|
|
j : record
|
|
x,y : longint;
|
|
end;
|
|
begin
|
|
i:=0;
|
|
format('%d', [i]);
|
|
with j do
|
|
begin
|
|
x:=2;
|
|
y:=4;
|
|
Writeln('j.x=',x,' j.y=',y);
|
|
end;
|
|
end. |