как создать программу минимум с числами a,b,c?

PaScaLvar a,b,c,min:integer;beginwriteln('введите числа a,b,c'); readln(a,b,c);min:=a;if (b<a) and (b<c) then  min:=b;if (c<a) and (c<b) then min:=c;writeln('min ', min);end.