Program Pascal Mencari Luas JajarGenjang

Nahhh ini adalah salah satu program pascal untuk Mencari Luas JajarGenjang

1. Programnya

program LuasJajarGenjang;
uses crt;
Var
a :Integer;
t :Integer;
Luas :Integer;
Begin
clrscr;
Writeln('program mencari luas jajar genjang');
Write('Input nilai a =');readln (a);
Write('Input nilai t =');readln (t);
Luas :=a*t;
Writeln('Nilai Luas =',Luas);
readln;
end.