Напишите функцию function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.

Ты мне текст программы целиком со вставленной в неё функцией напиши. И в какой строке ошибка.

Я поняла. Тебе нужна не функция, а программа с функцией.

var a,b,c,d: integer;function min(a,b,c,d: integer): integer;beginif a>b then a:=b;if a>c then a:=c;if a>d then a:=d;min:=aend;begin write('Введите числа: '); readln(a,b,c,d); writeln(min(a,b,c,d))end.

Спасибо. Теперь всё работает.))

Конечно работает. Но ты просил функцию, а не программу с ней. Не предполагала, что использовать не сможешь.

function min(a,b,c,d: integer): integer;beginif a>b then a:=b;if a>c then a:=c;if a>d then a:=d;min:=aend;