var a, b: integer; procedure int_quotient(m, n: integer); var z: real; begin z:=m/n; writeln(floattostr(z)); end; procedure dbl_quotient(x, y: real); var z: real; begin z:=x/y; writeln(floattostr(z)); end; procedure init; // var a, b: integer; begin a:=4; b:=5; int_quotient(a, b); dbl_quotient(a, b); end;
init;
ausführen