Помогите написать программу на уровне 9 класса в Pascal.ABC

1 вариант

var x, y, z, i: LongInt;
begin
write ('число = ');
readln (x);
y:=x;
i:=1;
while i <= 9 do
begin
while x > 0 do
begin
z:= x mod 10;
if i=z then
begin
writeln ('наименьшая нечетная цифра в числе = ', z);
readln;
halt;
end;
x:= x div 10;
end;
x:=y;
i:=i+2;
end;
writeln ('такие цифры в числе отсутствуют');
end.

2 вариант

var y, i: byte;
x, s: string;
begin
write ('число = ');
readln (x);
s:='13579';
for i:=1 to 5 do
begin
for y:=1 to length (x) do
if s[i] = x[y] then
begin
writeln ('наименьшая нечетная цифра в числе = ', s[i]);
readln;
halt;
end;
end;
writeln ('такие цифры в числе отсутствуют');
end.

program p1;
var
x, c, i, lens : Longint;
s : String;

begin
c := 10;
Read(x);
Str(x, s);
lens := Length(s);
for i:=1 to lens do
begin
case s[i] of
'1' : if c > 1 then c := 1;
'3' : if c > 3 then c := 3;
'5' : if c > 5 then c := 5;
'7' : if c > 7 then c := 7;
'9' : if c > 9 then c := 9;
end;
end;

if c < 10 then Writeln(c);

end.

https://ideone.com/wpOWEp