prosedur,fungsi di pascal dan C++

Listing program prosedur pascal program procedure1; uses crt; var a,b,c,d:real; procedure nilai; begin d:=((a*0.3)+(b*0.3)+(c*0.4)); write(...