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

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.