Только такой вижу! Умножать на 2 нельзя - сразу получится четное число, из которого никак прибавляя и ли умножая на 2 нечетное число (17) не получить!
11111111
Var n,k,s:integer;
begin
Writeln ('вводи числа, по окончанию введи 9999');
while n<9999 do
begin
readln (n);
if (n>0) and (n mod 10=6) then
begin
inc(k);
s:=s+n;
end;
end;
writeln ('кол-во=',k);
writeln ('сумма=',s);
end.
А)х=12
Б)х=34
В)х=5.5
С)х=89
D)x=22
E)x=12
12*3+1=37
37/2=18.5
100-18.5=81.5
81.5*2=163
Ответ: A)12,Б)34,B)5.5,C)89,D)22,E)163