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


Var m, n : integer;

begin

 m := 50;

 for n := 1 to 7 do

 m := m – 7;

 write(m);

end.

7 раз будет повторяться выражение m-7 то есть50-7=4343-7=3636-7=2929-7=2222-7=1515-7=88-7=1На экран выведет 1