Program Pascal 3

hahahaha...
suasah payah nih aq merancangnya...

ni dia listing yang ke 3

program empat_persegi_panjang;
uses wincrt;
var
nomor_menu:integer;
panjang,lebar,luas,keliling,diag:real;
begin
write('Menu Empat Persegi Panjang');
writeln;
write('1.Hitung luas ');
write('2.Hitung keliling ');
write('3.Hitung panjang diagonal ');
write('4.Keluar program ');

read(nomor_menu);
writeln;

case nomor_menu of
1:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

luas:=panjang*lebar;

writeln('luasnya adalah : ',luas:4:2);
end;
2:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

keliling:=2*(panjang+lebar);

writeln('luasnya adalah : ',keliling:4:2);
end;
3:begin
write('masukkan panjang : ');readln(panjang);
write('masukkan lebar : ');readln(lebar);

diag:=sqrt((panjang*panjang)+(lebar*lebar));

writeln('diagonalnya adalah : ',diag:4:2);
end;
4:begin
writeln('keluar program.');
end;
end;
end.