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

1. Школьный вариант в стиле ТурбоПаскаль 1983г.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=412. Современный Паскаль// PascalABC.NET 3.2, сборка 1431 от 28.04.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('k=',Range(20,100,2).Count)end.