Membuat Bilangan Prima pada Pascal

Tugas kali ini adalah membuat bilangan prima ke dalam pemrograman pascal, temen-temen tinggal lihat kode di bawah ini sehingga kalian dpat mengcopy paste kode di bawah ini:

uses crt;
var
prima:array [1..100] of integer;
i,a,x:integer;
begin
clrscr;
gotoxy(20,1); writeln('Program Bilangan Prima');writeln;
for i:=2 to 10 do
begin
prima[i]:=i;
for a:=2 to i-1 do
begin
x:=(i mod a);
if x=0 then prima [i]:=0;
end;
if prima [i] <>0 then
write(prima[i],' ');
end;
readln;
end.

Semoga Berhasil,.... thanks before jangan lupa untuk mengisi buku tamu,... hehehehe :)