составить программу с процедурой, которая находит минимальное значение из 3 чисел

спасибо!

Var a,b,c : Integer;Function Min(aa,bb : Integer) : Integer;Begin  If aa<bb then Min:=aa else Min:=bb;end;Begin  Write('Введите три числа: '); Readln(a,b,c);  Writeln('Минимальное число: ',Min(Min(a,b),c));end.