Составить программу которая показывает количество чётных чисел между числами а и б. с клавиатуры вводятся два числа а выводится количество чётных чисел между ними. ! !

Program HelloWorld;var a,b,c,i:integer;begin    readln(a);    readln(b);    c:=0;    for i:=a to 10 do    if (i mod 2=0) then inc(c);    writeln(c);end.