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

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