Вводится единственное трехзначное число. Выведите его минимальную цифру.
Пример

Ввод Вывод
123 1

varp,v,t,x:integer;beginwrite('Введите число ');readln(x);p:=x div 100;v:=(x div 10) mod 10;t:=(x mod 100) mod 10;if (p < v) and (p<t) thenwriteln('Минимальное цифра = ',p);if (v < p) and (v<t) thenwriteln('Минимальное цифра = ',v);if (t < p) and (t<v) thenwriteln('Минимальное цифра = ',t);end.