Составьте программу, которая находит меньшее из трех введеных чисел a, b, c и с выводит его на экран
Var a,b,c,min: real; begin writeln ('введи три числа'); read (a,b,c); min:=a; if bif cwriteln ('min=',min); end.