Номер минимальной цифры паскальнайти номер минимальной цифры натурального числа n.inputсо стандартного устройства ввода вводится 1 натуральное число, не превосходящее2000000000.outputнужно выдать на стандартное устройство вывода 1 цифру – номер наименьшей цифрыво введенном числе. если наименьшая цифра встречается несколько раз, выдать номертой, которая ближе к разряду единиц.sample input sample output123856187 718506797 4
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.