Progam Pascal Luas Lingkaran, Luas Segitiga Dan Perulangan

program Pascal;
uses wincrt;
var pilih,ulang:char;

procedure lingkaran;
var r,luas_l:real;
begin
     writeln ('    Luas Lingkaran    ');
     writeln ('======================');
     write   ('Jari-Jari Lingkaran: '); readln (r);
     luas_l:=pi*sqr(r);
     writeln ('Luas Lingkaran: ',luas_l:4:2);
end;

procedure segitiga;
var a,t,luas_s:real;
begin
     writeln ('    Luas Segitiga    ');
     writeln ('=====================');
     write ('Panjang Alas Segitiga: '); readln (a);
     write ('Tinggi Segitiga: '); readln (t);
     luas_s:=(1/2)*a*t;
     writeln ('Luas Segitiga: ',luas_s:4:2);
end;

procedure perulangan;
var pilih:char;

    procedure baris;
    var n,baris:integer;
    begin
         writeln ('Jumlah Bintang Dalam Baris');
         writeln ('==========================');
         write   ('Jumlah Bintang: '); readln (n);
         for baris:=1 to n do
         write ('*');
         writeln;
    end;

    procedure kolom;
    var n,kolom:integer;
    begin
         writeln ('Jumlah Bintang Dalam Kolom');
         writeln ('==========================');
         write   ('Jumlah Bintang: '); readln (n);
         for kolom:=1 to n do
         writeln ('*');
    end;

    procedure urut;
    var n,baris,kolom:integer;
    begin
         writeln ('         Berurutan         ');
         writeln ('===========================');
         write   ('Jumlah Bintang: '); readln (n);
         for baris:=1 to n do
         for kolom:=1 to baris do
         if kolom=baris then writeln('*')
         else write ('*');
    end;

begin
repeat
     writeln ('       MENU PERULANGAN       ');                
     writeln ('=============================');
     writeln ('1. Jumlah Bintang dalam Baris');
     writeln ('2. Jumlah Bintang dalam Kolom');
     writeln ('3. Berurutan');
     writeln ('=============================');
     write   ('Masukkan pilihan anda [1 - 3]: '); readln(pilih);
     clrscr;
     if pilih='1' then baris else
     if pilih='2' then kolom else
     if pilih='3' then urut else writeln ('Program Tidak Ada');
     write   ('Mau Kembali ke Program Perulangan [Y atau T]? : '); readln (ulang);
     if (ulang='Y') or (ulang='y') then clrscr;
until (ulang='T') or (ulang='t');
end;

begin
repeat
      clrscr;
      writeln ('          MENU UTAMA          ');
      writeln ('==============================');
      writeln ('1. Menghitung Luas Lingkaran');
      writeln ('2. Menghitung Luas Segitiga ');
      writeln ('3. Perulangan');
      writeln ('==============================');
      write   ('Masukkan pilihan anda [1 - 3]: '); readln(pilih);
      clrscr;
      if pilih='1' then lingkaran else
      if pilih='2' then segitiga else
      if pilih='3' then perulangan else writeln ('Program Belum Tersedia');
      write   ('Mau Kembali ke Progam Utama [Y atau T]? : '); readln (ulang);
until (ulang='T') or (ulang='t');
clrscr;
writeln ('Terima Kasih Sudah Menggunakan Program Kami');
end.