uses crt; function fromdec(n,osnov:longint):string; var s:string; const digit:string[16]='0123456789ABCDEF'; begin s:=' '; repeat s:=digit[(n mod osnov)+1]+s; n:=n div osnov; until n=0; fromdec:=s; end; var n,k,i,y,pdel:integer; p,code:integer; st,s:string; begin clrscr; pdel:=0; repeat write('vvedite n:'); readln(st); val(st,p,code); if code<>0 then writeln('nepravilnij vvod,owibka v pozicii: ',code); until code=0; n:=p; for i:=2 to n do begin pdel:=0; for k:=2 to i do if i mod k=0 then pdel:=pdel+1; if pdel=1 then begin write(i,' '); writeln('chislo v 16 ss= ',fromdec(i,16)); end; end; readkey; end.