1.Некто составил программку ,в который определяеться количество чисел в промежутке от

1.Некто составил программу ,в который определяеться количество чисел в промежутке от 200 до 500 которые деляться на 14 .Он допустил ошибку. Исправте их и запишите верный вариант программы
program Программа_2;
var n,z:integer;
begin
z=:0 ; n=:100 ;
for n:=100 to 1000 do begin
if (n div 14 =0) then writeln(n);
z:=z+1;
end;
writeln(z);
end.
2.Обусловьте ,что будет напечатано в итоге исполнения последующего метода записанного в паскале.Укажите ,сколько раз выполниться цикл тела .
Var z,n,i:integer;
Begin
z:=30;
for n:=8 to 15 do begin
if n gt; 10 then z:=z-2*n
else z:=z+n; end;
writeln(z)
end.