определить и вывести меньшее из трех вводимых чисел

vara,b,c : integer;beginreadln(a,b,c);if (a < b) and (a < c) then writeln(a);else if (b < a) and (b < c) then writeln(b);else if (c < a) and (c < b) then writeln(c);else writeln('Числа равны');end.