Решите 1.Какое число будет выведено на экран в результате выполнения этого цикла? i:=3 вывод '9' нц пока i<6 вывод i i:=i+1 кц2.Чему будет равно значение переменной «a» после выполнения этого цикла? i:=4 a:=0 нц пока i<6 a:=a+i i:=i+2 кц​

Var
  i: integer;
  ar: array[1..4]of integer;

 procedure Divisor(x: integer);
 var
  d, c: integer;
 begin
  c := 1;
  if(x < 1) then exit;
  write(x, ' = ');
  if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end; 
  d := 2;
  while x > 1 do
  begin
    if(x mod d = 0) then
     begin
      if(x div d <> 1) then write(d, ' * ')
       else write(d, '; ', ' Количество делителей:', c);
        x := x div d;
        c := c + 1;
     end
    else d := d + 1;
  end;
  writeln;
end;
  begin
  writeln('Введите четыре числа:');
  for i := 1 to 4 do read(ar[i]); 
  writeln;
  for i := 1 to 4 do Divisor(ar[i]);
end.