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.
cHJvZ3JhbSBwcmltOwp2YXIKICBpLCBqIDogaW50ZWdlcjsKYmVnaW4KICBmb3IgaSA6PSAyIHRvIDUwIGRvICAgCiAgYmVnaW4KICAgIGZvciBqIDo9IDIgdG8gaSBkbwogICAgICBpZiAoaSBtb2QgaikgPSAwICB0aGVuCiAgICAgICAgYnJlYWs7IHsqIGhhIHZhbiBvc3p0w7NqYSwgbmVtIHByw61tISAqfQogICAgICAKICAgICAgaWYgKGogPSBpKSB0aGVuCiAgICAgICAgd3JpdGVsbihpICwgJyBwcmltJyApOwogIGVuZDsKZW5kLg==