mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 09:28:13 +02:00
23 lines
461 B
ObjectPascal
23 lines
461 B
ObjectPascal
type
|
|
prec = ^trec;
|
|
|
|
trec = record
|
|
p : prec;
|
|
l : longint;
|
|
end;
|
|
|
|
function test(p1,p2 : prec) : boolean;
|
|
|
|
begin
|
|
if p1^.l=12 then
|
|
case p1^.l of
|
|
123 : test:=(test(p1^.p,p2^.p) and test(p1^.p,p2^.p)) or
|
|
(test(p1^.p,p2^.p) and test(p1^.p,p2^.p));
|
|
1234 : test:=(test(p1^.p,p2^.p) and test(p1^.p,p2^.p)) or
|
|
(test(p1^.p,p2^.p) and test(p1^.p,p2^.p));
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
end.
|