2. Дано натуральное число. Получить все его делители и количество этих делителей.
Var n,i :integer
begin
write('введите число');
read(n);
writeln('делители');
for i:=1 to a do
if n mod i=0 then writeln(i)
end.
Правильно ли? и объясните каждую строку,точнее ее роль.Что она делает? И приведите какое нибудь число в пример и сделайте по той же программе ,чтобы я точно поняла)))