a:=10; for i:=1 to 3 do begin a:=a-2 end;
a:=10; for i:=0 to 2 do begin a:=a-i end;
a:=2; for i:=0 to 3 do begin a:=a+i end;
a:=4; for i:=1 to 4 do begin a:=a+a end;
for i:=2 downto 1 do write(i);
write(4); for i:=4 downto 2 do write(2*i);
write(1); for i:=2 to 0 do write(i);