CONTOH PROGRAM PASCAL LUAS DAN VOLUME KUBUS

program bujursangkar_kubus;
uses crt;
var
 s, L, V:real;



 procedure Luas_bujursangkar;
 begin
 L:= s*s;
 writeln('Luas Bujursangkar = ',L:0:2);
 end;

 procedure Volume_kubus;
 begin
 V:= s*s*s;
 writeln('Volume Kubus = ',V:0:2);
 end;

begin
clrscr;
write ('Masukan sisi = ');readln(s);
Luas_bujursangkar;
Volume_kubus;
readln;
end.