program LuasJajaranGenjang;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   l,a,t:real;

begin
     write('Rumus Luas Jajaran Genjang');readln;
     write('panjang Alas Jajaran Genjang ');readln(a);
     write('tinggi Jajaran Genjang ');readln(t);
     L:=a*t;
     write('Luas Jajaran Genjang adalah..:',L:2:2);readln;

end.