contoh perulangan pascal repeat until

program repeat_until;
uses wincrt;
label back;
var
 k,awal,akhir:integer;
 rata,jum:real;
begin
back:
clrscr;
write('nilai awal  = ');readln(awal);
write('nilai akhir = ');readln(akhir);
if awal<=akhir then
begin
repeat
jum:=jum+awal;
awal:=awal+2;
k:=k+1;
until awal>akhir;
end
else goto back;
rata:=jum/k;
writeln('rata-rata= ',rata:2:2);
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.

B. PROGRAM REPEAT UNTIL 1

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
     write('n = '); read(n);
     i:=0;
     f:=1;
     repeat
       i:=i+1;
       f:=f*i;
     until i=n;
       writeln(n,' faktorial = ',f);
end.

C.PROGRAM REPEAT UNTL 2

Program Pengulangan;
Uses wincrt;
Var x:integer;
Begin
x:=1;
repeat
writeln(x,'. RICKY SEPRIYANTO adalah Seorang Mahasiswa Prodi TI/A5');
x:=x+1;
until x>9;
end