Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
SCREEN 7
pi = 3.14
CIRCLE (100, 100), 60, 15, pi / 2, pi * 1.5
CIRCLE (160, 100), 60 * SQR(2), 15, pi * 3 / 4, pi * 5 / 4
<span>PAINT (45, 100), 14, 15</span>
SD карту,поскольку у неё:
1.Наибольший объём памяти
2.Наилучшая портативность(удобность)