Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>
можно записать так
x>16
x/2=целое число
наименьшее число, подходящее этим критериям, 18, делаем проверку
18>16
18/2=9
ответ:18
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger();
write( a div 100 + a mod 10);
end.