var
a, b, c, min3: real;
begin
writeln('Введите три числа:');
readln(a, b, c); { <-- Вводим три числа }
if a < b then
if b < c then min3 := a { a<b<c }
else
if a < c then min3 := a {a<b a<c}
else min3 := c { c≤a<b }
else
if b > c then min3 := c { c<b≤a }
else min3 := b; { b≤a b≤c }
writeln('Наименьшее число: ', min3);
readln
end.
Все проста как ножницы и камни
