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.
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.