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