Помогите решить 'цикл со счётчиком' по икт . 3 задачи
1. среди двухзначных чисел найти сумму чисел, кратных 5. Сами числа и сумму вывести на экран.
2.Среди трехзначных чисел найти числа, в записи которых используется только одна цифра( например, 111), вывести на экран, подсчитать количество.
3. С клавиатуры вводится число, найти и вывести на экран все его делители. Также найти количество делителей, вывести на экран.

1 задача uses crt;varsum,i:integer;beginclrscr;sum:=0;for i:=10 to 99 dobeginif i mod 5=0 thensum:=sum+i;end;writeln('Сумма чисел кратных пяти=',sum);readln;end.по моему как то так