Вывести на экран числа от a до b кратных 3 или оканчивающихся на 3, посчитать их сумму. А так же посчитать количество чисел не удовлетворяющих условию. Решить оператором While? a до b = 1 до 15

var i,a,b,s,n:integer; 
begin 
writeln(Введите A); 
read(a); 
writeln(Введите B); 
read(b); 
writeln( );   
for i:=a to b do begin   
if ((i mod 3=0)or(i mod 10=3)) then writeln(i)     
else n:=n+1;    e
nd;   
s:=s+i;   
writeln( );   
writeln(Сумма чисел=,s);   
writeln(Чисел не подходят:,n) 
end.