Напишиет программу,которая в последовательности 10 натуральных чисел определяет сумму чисел,кртаных 5.Программа должна вывести одно число-сумму чисел ,кратных 5.

Если пользователь введет 1000 чисел 95, то типа integer не хватит для суммирования, нужен longint var x, s : longint; Begin s := 0; repeat write ('Введите число: '); Readln (x); if ((x>9) and (x<100) and (x mod 5 = 0)) then s := s+x; until (x=0); Writeln('s=',s); End.

Я бы делала так.  var number, sum : int;  begin sum := 0; do begin write ('vvedi 4islo: '); readln (number); if ((number>9) and (number mod 5 = 0)) sum := sum + number; end; while (number <> 0); readln; end.