Program Nbre_Premiers;
Var nb, i : integer;
Begin
For
nb := 2 to 400 do
begin
i := 2;
While (nb mod i <> 0) and (i <= nb div 2) do i:= i+1;
If (i > nb div 2) Then write(nb:4);
End;
End.