Помогите по Паскалю !!!!СРОЧНО. Пожалуйста
Ребята, буду очень благодарен если поможете :-)))

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


1. Var s; real;

i : integer;

. . .

s := 0;

for i := 1 to 4 do

begin

s := s*10 ;

s := s + I ;

end;


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


2. Var y : real;

x : integer;

. . .

y := 0;

for x := 6 downto 2 do

y := y +x;

y := y /5;


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


3. Var s : real;

n : integer;

. . .

s := 0;

for n := 6 downto 3 do

begin

s := s + 1;

s := s *2;

end;

1. Программа умножает своё значение на десять и затем прибавляет индекс цикла. В итоге делает это 4 раза.

Это равносильно сложению строковых данных в виде чисел от одного до четырёх.

s = '1' + '2' + '3' + '4' = 1234

Ответ: 1234.

2. Программа прибавляет к значению y значение индекса x (от 6 до 2) и затем делит значение на 5. [5 раз]

y = (0 + 6) / 5 = 1.2

y = (1.2 + 5) / 5 = 1.24

y = (1.24 + 4) / 5 = 0.848

y = (0.848 + 3) / 5 = 0.7696

y = (0.7696 + 2) / 5 = 0.55392

Ответ: 0.55392.

3. Программа прибавляет к значению s один и затем умножает значение на 2. [4 раза]

s = (0 + 1) * 2 = 2

s = (2 + 1) * 2 = 6

s = (6 + 1) * 2 = 14

s = (14 + 1) * 2 = 30

Ответ: 30.