{* Задача 531 *}

Unit ZADACH531;
Interface
Implementation
Begin
 writeln('Встречаются ли в разложении числа на простые множители одинаковые множители ');
End.

Program zadach531;
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  b    : Array[1..1000] Of longint;
  c    : Array[1..100] Of longint;
  i    : longint;
  j    : longint;
  a    : longint;
  k    : longint;
  flag : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('Введите число:');
  readln(k);
  b[1] := 2;
  a := 3;
  j := 1;
  flag := 0;
  met:
  While a1 Do
    If k Mod b[i] = 0 Then
    Begin
      inc(j); {* j++ *}
      c[j] := b[i];
      k := k Div b[i];
    End;
    Else inc(i); {* Увеличиваем i на 1 *}
      For i := 1 To j - 1 Do {* Переменная i увеличивается с 1 до j *}
        For a := i + 1 To j Do
          If c[i] = c[a] Then
          Begin
            write('повторяются');
            readln; {* Приостановка программы. Ожидание Enter *}
            halt;
          End;
  write('не повторяются');
  readln; {* Ждем подтверждения пользователя *}
End.