Даны три числа(a,b и c),определите значения наименьшего из них.

//прога на Pascal`e
var
a, b, c: real;
begin
readln (a, b, c);
if a<b then if a<c then write (a) else write (c)
else if b<c then write (b) else write (c);
write (' - меньшее');

end.