kode pascal persegi panjang

Uses Crt;

 Label

 Awal;

 Var

     Panjang, Lebar, Luas, Keliling : Real;

     Tanya:Char;

 Begin

 Awal:

 ClrScr;

         textcolor (red) ;

  Writeln('vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv');

 Writeln('>Software Untuk Menghitung Luas dan Keliling Persegi Panjang<');

 Writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

 Writeln;

 readln;

 textcolor (green);

 Writeln('Silahkan memasukkan nilai panjang dan lebar');

 readln;

 Write('Panjang= ');

 Readln(Panjang);

 Write('Lebar  = ');

 Readln(Lebar);

 Writeln;

 textcolor (red);

 Writeln('Jadi....');

 readln;

 Luas:= Panjang*Lebar;

 Writeln('Luas= ',Luas:1:1);

 readln;

 Keliling:= 2*panjang+2*lebar;

 Writeln('Keliling= ',Keliling:1:1); Writeln;

 readln;

 textcolor (yellow);

 Write('Apa masih ada persegi panjang yang ingin anda ukur (Y/T):');

 Read(Tanya);

 If Upcase(Tanya)= 'Y'Then Goto Awal;

 End.