Составьте программу, которая будет определять наименьшее число из трех любых чисел ( в switch, а не pascal)

Var a,b,c: integer;
begin
readln(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.