Задача с последовательностью чисел

[Лиза_]

напишите программу, которая в последовательности натуральных чисел определяет сумму ДВУХЗНАЧНЫХ чисел, КРАТНЫХ 5 . последовательность чисел заканчивается нулем
Помогите пожалуйста написать программу!!

[ViktorR]

Можно, например так:

Sum := 0; {Начальное значение суммы}
repeat
{Вводим число a}
If ((a > 9) AND (a < 100)) then
  if {a кратно 5} then
     Sum := Sum + a;
until (a = 0);

Тут небольшой минимум для старта.


Что-то вроде этого ...