{* Простое число *}

Unit CIKL_9;
Interface
Implementation
Begin
 writeln('Определение является ли число простым');
End.

Program cikl_9;

Uses cikl_9.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  i : integer;
  j : integer;
  a : integer;
  b : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Vvedite chislo');
  readln(a);
  If ((a Mod 2) = 0) Or ((a Mod 3) = 0) Or ((a Mod 5) = 0) Then
    writeln('Eto chislo ne prostoe')
  Else writeln('Eto chislo prostoe');
    readkey; {* Ждем нажатия любой клавиши *}
End.