Найдите количество четных чисел ,диапазоне от 20 до 100.

var
  i,k:integer;
begin
  k:=0; i:=20; { четное }
  while i<=100 do begin
    k:=k+1; i:=i+2
    end;
  Writeln('k=',k)
end.


k=41






begin
  Writeln('k=',Range(20,100,2).Count)
end.