fpcsrc/tests/webtbs/tw0776.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{$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.