Program Hitung;
USES Crt;
LABEL
Selesai;
TYPE
BilanganNyata = Integer;
VAR
Panjang : BilanganNyata;
Lebar : BilanganNyata;
PROCEDURE HitungLuasdanKelilingPersegiPanjang(p : BilanganNyata; l : BilanganNyata);
BEGIN
ClrScr;
WriteLn('LuasPersegiPanjang = ', p * l);
WriteLn('KelilingPersegiPanjang = ', 2 * (p+l));
END;
BEGIN { Program Utama }
Panjang := 7;
Lebar := 4;
HitungLuasdanKelilingPersegiPanjang(Panjang,Lebar);
GOTO Selesai;
WriteLn('Lho, kok saya dilewati');
Selesai:
WriteLn('Ganik Wahyuningtias/13')
ReadLn;
END.
