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

program zz1;

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

begin

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

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

begin

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

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

end;

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

end.