8 класс, Информатика, паскаль, для заданного числа (18) вывести его делители помогите,...

Question

8 класс, Информатика, паскаль, для заданного числа (18) вывести его делители помогите, пожалуйста

Answer 1

Var i, x: integer;
begin
   x := 18;
   for i:=1 to x do
      if x mod i = 0 then
         writeln(i);
end.