Напишите программу, которая позволяет ввести три вещественных числа и вывести наименьшее из них

Var a,b,c:real; 
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.  

Например, вводишь через Enter такие числа: 1.2,1.3,1.12, при выводе: 1.12.