Задание

Запишите зна­че­ние переменной y, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

Var y,i: integer;

Begin

y := 4;

For i := 1 to 3 do

y := i + 2*y;

Writeln(y);

End.