var a: array[1..m1, 1..n1] of integer; m, n, i, j, t, imin, jmin, mn: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(m, n); Randomize; Writeln('Исходный массив'); mn := 32767; for i := 1 to m do begin for j := 1 to n do begin t := Random(101) - 50; Write(t:5); if mn > t then begin mn := t; imin := i; jmin := j end; a[i, j] := t end; Writeln end; Writeln('Минимальный элемент a[', imin, ',', jmin, ']=', mn) end.
begin readln(n); s := inttostr(n); for c := '0' to '9' do begin b := true; for i := 1 to length(s) do if s[i] = c then begin b := false; break; end; if b then writeln(c); end;