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

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

//Pascal
var
  A: array[1..10] of integer;
  i, Count: byte;
  sum: integer;
begin
  randomize;
  writeln('Сгенерированный массив');
  for i := 1 to 10 do
  begin
    A[i] := random(8)-3;
    if A[i] < 0 then
      sum := sum + A[i];
    write(A[i],' ');
  end;
  writeln;
  writeln('Сумма отрицательных элементов = ', sum);
  writeln;
  writeln('Измененный массив');
  for i := 1 to 10 do
  begin
    if A[i] >= 0 then
    begin
      A[i] := 0;
      Count := Count + 1;
     end;
    write(A[i], ' ');
  end;
  writeln;
  writeln('Количество нулевых элементов = ', Count);
end.

Управляющий сайт _Портал_
Степень соответствия желаемому поиску в Интернете _Релевантность_
Базовый объект операционной системы Windows _окно_
Документ, взятый из Интернета _Веб-документ_
Сетевая карта _Адаптер_
Глобальная мировая компьютерная сеть _Интернет_
Часть URL адреса _Домен_
Электронная почта на английском языке _Е-mail_
Они бывают людские, природные, экономические, скрытые, аппаратные, программные, информационные, открытые, закрытые _Ресурсы_
Запишите первые буквы каждого термина и вы получите слово _ПРОВАИДЕР_