Program Bilangan Prima kecil dari 30 (Pascal)

PROGRAM BILANGANPRIMA_KECILDARI_30;
uses wincrt;
var
batas ,i:integer;
begin
write('masukan angka: '); readln(batas);
for i := 2 to 3 do
if i mod 3 = 2 then
write(i,' ');
begin
for i := 2 to 5 do
if i mod 2 = 1 then
write(i,' ');
for i := 6 to 8 do
if i mod 2 = 1 then
write(i,' ');
begin
for i := 11 to 14 do
if i mod 2 = 1 then
write(i,' ');
begin
for i := 16 to 20 do
if i mod 2 = 1 then
write(i,' ');
begin
for i := 22 to 24 do
if i mod 2 = 1 then
write(i,' ');
begin
for i := 28 to batas do
if i mod 2 = 1 then
write(i,' ');

end;
end;
end;
end;
end;
end.