Как в паскале задать программу, которая из трёх чисел выберет наименьшее пример(числа любые). заранее

Var a,b,c:integer;
begin
read(a,b,c);
if (a<b) and (a<c) then
writeln(a);
if (b<a) and (b<c)  then
writeln(b);
if (c<a) and (c<b)  then
writeln(c);
end.