Вывести на экран числа от 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.