TPW Menghitung luas panjang, Turbo Pascal dengan perulangan sederhana

uses wincrt;

var

   panjang, lebar, luas:real;

   lagi:char;

   begin

   repeat;

   clrscr;

   writeln('===========================================');

   writeln('Program Menghitung Luas Persegi Panjang');

   writeln('===========================================');

   writeln;

           write ('Masukkan panjang? '); readln (panjang);

                 write ('Masukkan lebar? ')  ; readln (lebar);

                 luas := panjang*lebar;

                 writeln;

writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');

           Write('Apakah Anda Akan Mengulang Lagi?<Y>a/<T>:=');

           readln(lagi);

           until not(lagi in ['y','Y']);

           readln;      

   END.

Semoga Membantu