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