primszamok

program prime2;
uses crt;
Var a, num, flag, k:integer;
begin
clrscr;
writeln('Adja meg a szamot');
readln(a); clrscr; writeln('A megadott szam: ', a); writeln('A primszamok:');
for num:=2 to a do
begin
flag:=0;
for k:=2 to num-1 do
if num mod k=0 then flag:=1;
if flag=0 then
write(num:4);
end;
readln;
end.