Функции

[Antonio_getscool]

С помощью функции min (x y) веществ типа находящую минимум из X и Y найти мин из чисел А В и С

[Stilet]

Запросто:

MODULE ПримерФункции;
IMPORT StdLog;

PROCEDURE min(x,y:REAL):REAL;
BEGIN
 IF x>y THEN RETURN y ELSE RETURN x; END; 
END min;

PROCEDURE do*;
VAR x,y:REAL;
BEGIN
 x:=4;y:=8;
 StdLog.Clear;
 StdLog.Real(min(x,y));
END do;

END ПримерФункции.

Смысл понятен?