№3. Какое число выведет на экран ПК после выполнения фрагмента программы?

For i:=5 downto 1 do s:=20 - i;
write (s);

№4. Определите, что будет напечатано в результате работы следующей программы.
Var k,і: integer;
Begin k := 2;
For і := 0 to 2 do
k := 3*k + і;
Writeln(k);
End.

№5.  Определите, что будет напечатано в результате работы следующей программы.
Var k, і: integer;
Begin
k := 4;
For і := 1 to 3 do
k := 2*k + і;
Writeln(k);
End.