Цельные тексты, разделяемые пустой строкой (единственный текст на словарь также допускается).
Содержание:
1
program snch; var d, m, i:integer; begin readln (d); m := 1; while m < d do begin i := 2; while (m mod i <> 0) and (i <= m) do i := i + 1; if i = m then writeln (m); m:= m +1; end; end.
Комментарии