mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-03 14:18:30 +02:00
24 lines
339 B
ObjectPascal
24 lines
339 B
ObjectPascal
{$mode objfpc}
|
|
type
|
|
tr = record
|
|
data1 : longint;
|
|
data2 : longint;
|
|
end;
|
|
|
|
tc = class
|
|
r : ^tr;
|
|
function f : longint;
|
|
end;
|
|
|
|
function tc.f : longint;
|
|
begin
|
|
result:=r^.data1+r^.data2*r^.data1;
|
|
r^.data1:=r^.data2*r^.data1;
|
|
|
|
if assigned(r) and (r^.data1=r^.data2) then
|
|
writeln(':)');
|
|
end;
|
|
|
|
begin
|
|
end.
|