rumus turbo pascal

kalo yang belum punya aplikasi turbo pascal download aja >>>klik 
download

ini beberapa rumus dalam turbo pascal
rumus mencari luas empat persegi pangjang
program mwncari_luas_empat_persegipanjang ;
(* program membaca luas empat persegi panjang *)

user wincrt ;
        var
        pamjang, lebar, luas :integer;

        begin
        (* membaca harga panjang dan lebar*)
        writen ('panjang: ');
        readln (panjang)
        write ('lebar =');
        readln (lebar);
       
        luas : =panjang*lebar

        writenl ('luas =' ,luas);

end

rumus mencari volume kubus
program mwncari_volume_kubus ;

user wincrt ;

      var
      sisi, volume=integer;

     begin
     write ('sisi= ');
     readln (sisi);

     volume ('volume =' , volume);

end


yang lainnya di kembangkan sendirir ya..............