информатика,напишите программу с защитой от неверных чисел

Вопрос:

На паскале писать?

ответ: Проверь сперва

var

 a, s: integer;

begin

 s := 0;

 repeat

   writeln('Введите число: ');

   read(a);

   if (a mod 3 = 0) and (a mod 10 = 9)

     then s += a;

 until a = 0;

 writeln('Сумма: ', s);  

end.