Minggu, April 19, 2009

menghitung luas

uses wincrt ;
var
P,L,luas : integer ;
begin
writeln ( 'panjang = ' ) ; read ( P ) ;
writeln ( 'lebar = ' ) ; read ( L ) ;
luas := P*L ;
write ( 'luas = ',luas ) ;
end.

Tidak ada komentar:

Poskan Komentar