mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:28:16 +02:00
30 lines
342 B
ObjectPascal
30 lines
342 B
ObjectPascal
var
|
|
l1,l2 : longint;
|
|
w1,w2 : word;
|
|
b1,b2 : byte;
|
|
b : boolean;
|
|
|
|
begin
|
|
if b then
|
|
w1:=w2;
|
|
if b then
|
|
w1:=w2;
|
|
if b then
|
|
begin
|
|
w1:=w2;
|
|
l1:=l2;
|
|
end;
|
|
if b then
|
|
w1:=w2
|
|
else
|
|
w2:=w1;
|
|
{
|
|
if b then
|
|
begin
|
|
w1:=w2;
|
|
l1:=l2;
|
|
b1:=b2;
|
|
end;
|
|
}
|
|
end.
|