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

Ввод Вывод
123 1

Varp,v,t,x:integer;
begin
write(Введите число );
readln(x);
p:=x div 100;
v:=(x div 10) mod 10;
t:=(x mod 100) mod 10;

if (p lt; v) and (plt;t) then
writeln(Минимальное цифра = ,p);
if (v lt; p) and (vlt;t) then
writeln(Минимальное цифра = ,v);
if (t lt; p) and (tlt;v) then
writeln(Минимальное цифра = ,t);
end.