Язык программирования Pascal

Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a := 2468;
b := (a mod 1000) * 10;
a := a div 1000 + b;

Определите значение переменной y, которое будет получено в результате выполнения следующей программы:

var n,  y: integer;
begin
  y := 0;
  for n := 6 downto 3 do
     begin
         y := y + 1;
         y :=y * 2;
     end;
end.

Определите значение переменной P после выполнения следующего фрагмента программы:

P := 1; i := 3;
while i <= 9 do
  begin
    P := P * (i div 3);
    i := i + 1;
  end;

Определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и с – переменные вещественного (действительного) типа:

a := 120;
b := 100;
a := a + b / 2;
if b < a / 2
  then c := b + a
  else c := b + a / 2;

Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;
begin
  s:=0;
  k:=1;
  while s < 66 do
      begin
          k:=k+3;
          s:=s+k;
      end;
  write(s);
end.