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

Var a,b,c,min: real;
begin
writeln ('введи три числа');
read (a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln ('min=',min);
end.