Contoh Program Pengulangan (Repeat) Turbo Pascal

Contoh Program Pengulangan (Repeat) Turbo Pascal
uses wincrt;
var A:integer;
R:char;
begin
Repeat
writeln('Masukan hari ke :');readln(A);
case (a) of
1:write('Hari ke ',A,'adalah Senin');
2:write('Hari ke ',A,'adalah Selasa');
3:write('Hari ke ',A,'adalah Rabu');
4:write('Hari ke ',A,'adalah Kamis');
5:write('Hari ke ',A,'adalah Jumat');
6:write('Hari ke ',A,'adalah Sabtu');
7:write('Hari ke ',A,'adalah Minggu');
else write('salah ketik tuh!!!');
End;
Writeln;
write('Apakah Anda akan mengulang?');
readln (R);
until UPCASE (R)<> 'Y';
End.