program prim; var i, j : integer; begin for i := 2 to 50 do begin for j := 2 to i do if (i mod j) = 0 then break; {* ha van osztója, nem prím! *} if (j = i) then writeln(i , ' prim' ); end; end.