1. Уже в первой строке ошибка - отсутствует символ ";" в конце строки. 2. В строке № 8 ошибка, не объявленная переменная "a"
3. Это только ошибки в синтаксисе, после их исправления программа запускается, но работать так как нужно не будет. Ищем ошибки в алгоритме: исправим стороку "for i := 1 to a do" на "for i := 1 to n do" и получим вывод всех делителей, но в условии задачи требуется вывести и их количество. Вот исправленный код программы: var n, i, a: integer;
begin write('введите число'); read(n); writeln('делители'); for i := 1 to n do if n mod i = 0 then begin writeln(i); a:=a+1; end; writeln('Делителей ',a); end.
29
Объяснение:
a = 7
b = 22