Вывести на экран числа от 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;    end;    s:=s+i;    writeln(' ');    writeln('Сумма чисел=',s);    writeln('Чисел не подходят:',n) end.