Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит его на экран. )

Var a,b,c,min:integer;
begin
readln(a,b,c);
if a<=b then min :=a
else min := b;
if c<min then min:=c;
writeln('Минимальное число = ',min);
end.