Подсчитать количество положительных четных частей числового ряда от 555 до 765

В Паскале за целочисленное дробление отвечает оператор div . При использовании оператора div дробная часть будет отброшена.

С оператором mod при дроблении с остатком в итоге отбрасывается как раз целая часть.

Program Primer1;
Var
i, k: integer;
begin
k:= 0;
for i:= 555 to 765 do в данном цикле счет начинается от 555 до 765
begin
if (i mod 2 =0) then k:= k + 1;если число четное, то остаток от разделенья равен 0, поэтому считаем
end;
writeln(k);
end.