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

PaScaL
var a,b,c,min:integer;
begin
writeln('введите числа 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.