Pemrograman Komputer 1

Program luas_persegi_panjang;
uses wincrt;
var p,l:integer;
A:real;
begin
write ('masukkan nilai p= ');readln(p);
write ('masukkan nilai l= ');readln(l);
A:=p*l;
writeln (p,'*',l,'=',A:6:2);
end.