Модуль
Unit modul;
interface
uses crt;
Function Mnozh(aa,bb:real):real;
implementation
Function Mnozh;
begin
Mnozh:=aa*bb;
end;
Begin
Clrscr;
end.
Программ
Program MyFun;
uses modul;
var a,b,rez:real;
Begin
Writeln(' Введите a и b');
Readln(a,b);
rez:=Mnozh(a,b);
Writeln(' Результат равен ',rez:3:3);
end.