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 > 10 then z:=z-2*n
else z:=z+n; end;
writeln(z)
end.

спасибо

1)var n,z:integer;beginz:=0;//z=:0 знак присваивания выглядит вот так ":="//n=:100 - не нужно иницилизировать параметр цикла.for n:= 200 to 500 do begin//for n:=100 to 1000 do begin - цикл должен идти от 200 до 500, а не со 100 до 1000if n mod 14 = 0 then //if (n div 14 =0) then - div - Целая часть от деления, а mod - остаток.z:=z+1;//writeln(n); - Выводить n не нужно совсем, а вот увеличить счетчик не помешает//z:=z+1;- а вот тут уже лишнееend;writeln(z);end.2)-73, выполнится  15 - 8 + 1 =  8 раз