Напишите программу , которая по двум данным числам [ a,b] ( включая концы отрезка) программа получает на вход два натуральных числа a и b . программа должна вывести одно число : количество чётных чисел на отрезке [ a,b ] входные данные : 10 , 20 выходные данные : 6
var a,b,i,count:integer;
begin
readln(a, b);
count:=0;
for i:=a to b do if i mod 2=0 then count:=count+1;
writeln(count)
end.