Fedya_prime_numbers

var n,k,x:Integer;
begin
    writeln('vvedite n');
    readln(n);
    k:=0;
    for x:=2 to n do
        begin
        if  (x=3)or(x=5)or(x=7) then
            write(x:5);
        if (x mod 2<>0)and(x mod 3<>0)and(x mod 5<>0)and(x mod 7<>0)  then
            write(x:5);
        end;
    read;
End.