Помогите, пожалуйста, написать программу в Pascal. Напишите функцию выбора меньшего из целых чисел. Используйте ее в программе выбора наименьшего из трех чисел.
Var a,b,c,m:integer; function min(x,y:integer):integer; begin if xend; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); m:=min(min(a,b),c); writeln('min=',m); end. Пример: a=5 b=3 c=8 min=3