Script bilangan prima dengan metode procedure (pascal)

program bil_prima;

uses wincrt;

var
a, b, c, d, e : integer;
procedure coba;
begin
if a = d then
     begin
      b:= a - 1;
     end
     else
     writeln(e);
end;
begin
clrscr;
write(' Masukkan Bilangan : ');readln(c);
   for a:=3 to c do
  begin
     for b:= 2 to a-1 do
     begin
      if a mod b = 0 then
       begin
         d:=a;
       end
       else
       begin
         e:=a;
       end;
     end;

     coba;
  end;
end.