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

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

Найти значение переменной 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;