Question

Bantuin ya Program free pascal
Jangan ngasal

Answer 1

Var 
panjang,lebar:integer; 
luas,keliling : real; 
begin 
writeln ('   Menghitung Luas dan Keliling Persegi Panjang '); 
writeln (' '); 
write ('Masukan Panjang : ');readln (panjang); 
write ('Masukan Lebar   : ');readln (lebar); 
luas := panjang*lebar; 
keliling := 2*(panjang+lebar); 
writeln (' '); 
writeln ('Jadi Luasnya adalah    ', luas:1:1 , ' cm'); 
writeln ('dan kelilingnya adalah ', keliling:1:1 , ' cm'); 
readln; 
end.