#Program_Komputer | Program Menghitung Luas Jajar Genjang

Program Menghitung_Luas_Jajar_Genjang;
Uses dos, crt;
Var
   L,a,t:real;
   ch:char;
Begin
     clrscr;
     writeln('Program ini dibuat oleh: Wiwit Safitri');
     write('Masukkan panjang alas = ');
     readln(a);
     write('Masukkan tinggi = ');
     readln(t);
     L:=a*t;
     writeln('Luas jajar genjang =',L:5:2,' Cm2');
     Ch:=readkey;
End.