.


5 - 2


write(p:4, ' ')

end;

p 2 p 3,

: if p = 2 then

write(p:4, ' ')

, , , - :

else if p mod 2 <> 0,

3: else if p = 3

then write(p:4, ' ')

, p , i 3, 2. k, . , , , - .

:

Program

Problem4; { [n; m] }

uses WinCrt;

var

n, m, p, i, k : integer;

begin

write(' '); readln(n);

write(' '); readln(m);

writeln(' [', n, ' ', m, ']');

p := n; if p = 1 then p := p + 1;

repeat

if p = 2 then write(p:4, ' ')

else if p = 3

then write(p:4, ' ')

else

if p mod 2 <> 0

then

begin

i := 3; k := 0;

repeat

if p mod i = 0 then k := k + 1;

i := i + 2

until i > p div

2;

if k = 0 then

write(p:4, ' ')

end;

p := p + 1

until p = m;

writeln

end.