Паскаль, цикл с предусловием while. вводится целое положительное число. найти наименьшую нечетную цифру в числе. если в числе нет нечетных цифр, то вывести надпись "в числе нет нечетных цифр"

Var min, n, r, m: integer; begin     writeln('введите целое положительное число');     read(n);     min : = 10;     r : = 1;     while r < > 0 do     begin     m : = n mod 10;     if (m < min) and (m mod 2 = 1)  then min : = m;     r : = n div 10;     n : = r;   end;   if min = 10 then writeln('в числе нет нечетных цифр') else writeln (min) end.

Program fofgogjoj;   var    arr: array[1..1000] of byte;     max_num, min_num: byte;     i: byte;     n,p: integer;   begin    randomize;   wriiteln('введите число n'); readln(n);     for i : = 1 to n do begin        arr[i] : = random(100);           write (arr[i]: 3);     end;             max_num : = arr[1];       for i : = 2 to n do          if arr[i] > max_num then begin                        max_num : = arr[i];         end;       writeln;     writeln ('max = ',max_num);               min_num : = arr[1];       for i : = 2 to n do        if arr[i] < min_num then begin                        min_num : = arr[i];         end;         writeln;     writeln ('min = ',min_num);           p: =max_num*min_num;     writeln('произведение равно: ',p);   end.

Uses crt; label goback; var a,b,c,d,e,f: integer; begin goback: write('введите число: '); read(a); if (a< 1000) or (a> 9999) then      begin       writeln('введите четырехзначное число.');       goto goback; end; b: =a div 1000; c: =a div 100 mod 10; d: =a div 10 mod 10; if (b=c) and (c=d) then  begin    writeln('первые 3 цифры равны.');   end; if (b=c) and (c> d) then  begin    writeln(d,' - наименьшая цифра из первых 3 цифр.'); end; if (d=b) and (b> c) then  begin    writeln(c,' - наименьшая цифра из первых 3 цифр.'); end; if (c=d) and (d> b) then  begin    writeln(b,' - наименьшая цифра из первых 3 цифр.'); end; if (b> c) and (c> d) and (b> d) then  begin    writeln(d,' - наименьшая цифра из первых 3 цифр.'); end; if (c> d) and (d> b) and (c> b) then  begin    writeln(b,' - наименьшая цифра из первых 3 цифр.'); end; if (b> d) and (d> c) and (b> c) then  begin    writeln(c,' - наименьшая цифра из первых 3 цифр.'); end; if (b mod 2 = 0) then  begin    writeln('первая цифра четная');   end; if (c mod 2 = 0) then  begin    writeln('вторая цифра четная'); end; if (b mod 2 = 0) and (c mod 2 = 0) then  begin    writeln('и первая и вторая цифра четная');   end; if (b mod 2 = 1) and (c mod 2 = 1) then  begin    writeln('и первая и вторая цифра не четная'); end; end.