Напишите программу ** Pascal в последовательности натуральных чисел найти сумму всех...

Question

Напишите программу на Pascal
в последовательности натуральных чисел найти сумму всех двухзначных чисел которые начинаются на 5. ввод чисел заканчиваются 0

Answer 1

Var a,s: integer;
begin
  repeat
    readln(a);
    if (a>9) and (a<100) and (a div 10 = 5) then s:=s+a;<br>  until a = 0;
  writeln(s);
end.