program cara_membuat_luas_persegi ;
uses wincrt ;
var panjang , lebar, luas, : integer ;
begin writeln ('lebar') ;
readln ('lebar') ;
writeln ('panjang') ;
readln ('panjang');
luas := panjang*lebar ;
writeln ('luas = ',luas);
end.
semoga berasil ya sobat,ini hanya examples aja........?
good luck sobat
ADS HERE !!!