Perulangan : Menampilkan Bilangan Prima 1 - 20 dengan while - do

TRANSLASI KE BAHASA PASCAL

program bilprima;
Uses crt;
var
  prima,nilai,pembagi:integer;
Begin
Clrscr;
prima:=1;
while prima <= 20 do
begin
  nilai:=0;
  pembagi:=1;
while pembagi <= prima do
 begin
   if prima mod pembagi=0 then
   nilai:=nilai+1;
   pembagi:=pembagi+1;
  end;
    if nilai=2 then
    begin
      write(' ',prima);
      prima:=prima+1;
    end
      else
       prima:=prima+1;
      end;
readln;
end.
=============================================================