Найти сумму всех двузначных чисел, кратных 5. Условный оператор не использовать

program zz1;

var b, i:integer; / / задаем переменные целого типа

begin

i:=10; / / задаем начальное значение для параметра цикла

while i < 100 do / / организуем цикл, пока параметр цикла не достигнет первого трехзначного числа

begin

b:=b + i; / / добавляем число к сумме

i:=i + 5; / / увеличиваем параметр цикла на пять

end;

write (' сумма всех двузначных чисел, кратных 5 = ', b); / / выводим ответ

end.