program yeck; procedure blaah(a,b: real; c: integer; d: real); begin a := a + b + c end; begin blaah(1.1, 2.2, 3, 4.4) end.