sample06.PAS

{* Печать всех простых чисел до 500 *}

Unit SAMPLE06;
Interface
Implementation
Begin
 writeln('Печать всех простых чисел до 500');
End.

Program pas;

Uses sample06.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  LIMIT = 500;
Var {* В работе нам потребуются переменные: *}
  i   : word;
  j   : word;
  lim : word;
Begin
  writeln; {перевод строки, начинаем с новой строки}
  For i := 1 To LIMIT Do {* Увеличиваем i от 1 до LIMIT с шагом 1 *}
  Begin
    j := 2;
    lim := round(sqrt(i));
    While (i Mod j  0) And (j  lim) Then
      write( i, ' ' );
  End;
  
End.