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

var a,b,c,m:integer;function min(x,y:integer):integer;beginif x<y then min:=x else min:=y;end;beginwrite('a='); readln(a);write('b='); readln(b);write('c='); readln(c);m:=min(min(a,b),c);writeln('min=',m);end.Пример:a=5b=3c=8min=3