MUHAMMAD RIZKI LUBIS: contoh program repeat..until dari kiki

uses crt;
var
bil:longint;
i:longint;
p:longint;
begin
clrscr;
repeat

p:=0;
gotoxy(21,5);write('progranm penentuan bilangan prima');
for i:=1 to 36 do
begin
gotoxy(18+i,6);write(#220);
end;

gotoxy(24,15);write('masukkan suatu bilangan :');readln(bil);
for i:=1 to bil do
begin
if ((bil mod i)=0) then
p:=p+1;
end;
if (p=2) then
begin
gotoxy(24,18);write(bil,'bilangan prima');
end else
begin
gotoxy(24,18);write(bil,'bukan bilangan prima');
end;
readln;
until keypressed;
end.