ХЕЛП! Кто понимает в программировании

var a,b,maxa:integer;
begin
maxa := -1;
readln(a);
while (a <> 0) do
begin
b := a mod 10;
if (b mod 2 = 0)and(b > maxa) then maxa := b;
a := a div 10;
end;
if maxa = -1 then writeln('нет четных цифр') else
writeln(maxa);
end.

var
i : integer;
s : string;
begin
ReadLn(i);
Str(i, s);
if Pos('8',s) > 0 then WriteLn('8')
else if Pos('6',s) > 0 then WriteLn('6')
else if Pos('4',s) > 0 then WriteLn('4')
else if Pos('2',s) > 0 then WriteLn('2')
else WriteLn('0');
end.

Begin
while(true) DoSomething(brain);
end.

нах... мне оно надо

var
i : integer;
s : string;
begin
ReadLn(i);
Str(i, s);
Write('Наибольшая чётная цифра в числе '+s+': ');
if Pos('8',s) > 0 then WriteLn('8')
else if Pos('6',s) > 0 then WriteLn('6')
else if Pos('4',s) > 0 then WriteLn('4')
else if Pos('2',s) > 0 then WriteLn('2')
else if Pos('0',s) > 0 then WriteLn('0')
else WriteLn('не обнаружена');
end.

var
i : integer;
s : string;
begin
ReadLn(i);
Str(i, s);
if Pos('8',s) > 0 then WriteLn('8')
else if Pos('6',s) > 0 then WriteLn('6')
else if Pos('4',s) > 0 then WriteLn('4')
else if Pos('2',s) > 0 then WriteLn('2')
else WriteLn('0');
end.

2

program test;

var
a, b, c, i: integer;

begin
readln(a);
b := a;
for i := 1 to 4 do
begin
b := a mod 10;
if (c < b) and (b mod 2 = 0) then
c := b;
a := a div 10;
end;
writeln(c);
end.

var
i : integer;
s : string;
begin
ReadLn(i);
Str(i, s);
if Pos('8',s) > 0 then WriteLn('8')
else if Pos('6',s) > 0 then WriteLn('6')
else if Pos('4',s) > 0 then WriteLn('4')
else if Pos('2',s) > 0 then WriteLn('2')
else WriteLn('0');
end.

Я ПЛОХО РАЗБИРАЮСЬ

Я ПЛОХО РАЗБИРАЮСЬ

program test;

var
a, b, c, i: integer;

begin
readln(a);
b := a;
for i := 1 to 4 do
begin
b := a mod 10;
if (c < b) and (b mod 3 = 0) then
c := b;
a := a div 7;
end;
writeln(c);
end.