Tugas Algoritma "Menampilkan Bilangan Prima dari angka 1 s/d 20"

7. Program untuk menampilkan bilangan prima yang dimulai dari angka 1 sampai dengan angka 20 dalam bahasa pascal adalah sebagai berikut :

Jawab:
uses crt;
var x,y: integer;
begin
clrscr;
write(‘2 ‘);
for x:= 3 to 20 do
begin
prima:=true;
for y := 2 to x-1 do
begin
if (x mod y) = 0 then
begin
prima := false;
break;
end;
end;
if prima then write(x,’ ‘);
end;
Readln;

end.