@@ -0,0 +1,29 @@
+var
+ l1,l2 : longint;
+ w1,w2 : word;
+ b1,b2 : byte;
+ b : boolean;
+
+begin
+ if b then
+ w1:=w2;
+ begin
+ l1:=l2;
+ end;
+ w1:=w2
+ else
+ w2:=w1;
+ {
+ b1:=b2;
+ }
+end.