Praktikum 3 - Alpro 1 - Perulangan

Dibawah ini adalah source codenya :
PROGRAM Program_Representasi_Data;
USES wincrt;
VAR kode : Byte;
    enter, bin : String;
    a1 :real;
    Des : longint;
    d,sisa,biner,bil,f,n :longint;
    b,c,fak, I : longint;
Label Awal;


Begin
Awal: Clrscr;
Repeat;
writeln('|>>>         Masukan Kode Konversi yang Diinginkan           <<<|');
writeln('|                                                               |');
writeln('|== 1. Desimal ke Biner                                         |');
writeln('|== 2. Biner ke Desimal                                         |');
writeln('|== 3. Faktorial                                                |');
writeln('|== 4. Tentang Program                                          |');
writeln('|== 0. Exit                                                     |');
writeln('|                                                               |');
writeln('|Masukkan Kode:                                                 |');
writeln('|                                                               |');
writeln('|---------------------------------------------------------------|');
writeln('|------------------------------------------   Muhammad Ripani   |');
writeln('|------------------------------------------      J1F113021      |');
writeln('|------------------------------------------ Computer Science 13 |');
writeln('|_______________________________________________________________|');


gotoxy (17,9); write(''); read(kode);

    Case kode of
    1: Begin
clrscr;
writeln ('     Konversi Bilangan Desimal ke Biner     ');
writeln;
        writeln;
write ('Masukan Bilangan Desimal = '); ReadLn (Des);
Bin := '';
Repeat
Begin
 If   Des mod 2 = 0 Then Bin := '0' + Bin
 Else Bin := '1' + Bin;  Des := Des div 2;
 End;
Until Des = 0;
WriteLn ('Bilangan Biner = ',Bin);

writeln;
        writeln;
write('Tekan Enter untuk Kembali ');
        readln;
goto Awal;
End;


    2: Begin
clrscr;
writeln ('     Konversi Bilangan Biner Ke Desimal     ');
writeln;
        writeln;
des:=0;
b:=1;
write  ('Masukan Bilangan Biner = '); readln(biner);
    b:=1;
repeat
 sisa:=biner mod 10;
 biner:=biner div 10;
 des:=des+sisa*b;
 b:=b*2;
until biner=0;
write('Bilangan Desimal = ');writeln(des);

writeln;
        writeln;
write('Tekan Enter untuk Kembali ');
        readln;
goto Awal;
End;

    3: Begin
clrscr;
writeln('                 Faktorial                ');
writeln;
        writeln;
write('Masukkan Nilai yang difaktorialkan [B!] = '); readln(b);
write('Masukkan Nilai pembagi                  = '); readln(c);
fak:=1;
for I := 1 to b do
begin
fak:=fak * I;
end;
writeln('A= ',fak,'');
writeln('  ------');
writeln('    ',c,'');
a1:=fak/c;
writeln('A (Hasil Bagi)= ',a1:2:0,'');

writeln;
        writeln;
write('Tekan Enter untuk Kembali');
        readln;
goto awal;
        readln;
       End;
   
    4: Begin
clrscr;
write('     Program ini diberi nama Program Representasi Data. Pada program ini menggunakan Turbo Pascal For Windows 1.5. ');
write('Tujuan dari program ini dibuat agar lebih memudahkan mengkonversi bilangan desimal ke biner, mengkonversi ');
write('bilangan biner ke desimal dan memfaktorialkan bilangan. ');
        readkey;
writeln;
writeln;
write('    Untuk program tampilan awal menggunakan inputan kode menu, Dalam program iniTerdapat Lima Menu pilihan, ');
write('Menu Konversi Desimal Ke Biner, Menu Biner Ke Desimal, Menu Faktorial, Menu Tentang Program, Dan Menu Exit. ');
        readkey;
writeln;
writeln;
writeln;
write(' Tekan Enter untuk Kembali ');
readln(enter);
readln;
goto Awal;
        End;

    0: Begin
exit;
       End;

       End;
readln;
until (kode<-1) and (kode<5);
End.