1) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:

1) Var k: integer;

Begin

FOR k := 1 TO 7 do

Writeln (к);

2) Var x,y: integer;

Begin

у := 5;

FOR х := 1 TO 10 do

y := у + 4;

Writeln (y);

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

Var x,у: integer;

Begin

у := 1;

FOR х:= 1 TO 6 do

y := y *2;

y:=у+x;

Writeln (у);