Ответ:12000
Объяснение: т.к 12000/08,5
Не уверен, верно ли, понял задание, так что тестируйте..
Var a:longint; b:integer; s:string;
begin
readln(s);
a:=1; b:=1;
repeat
writeln('Продолжить вычисления? (Д/Н)');
b:=b+2;
a:=a*b;
readln(s);
until (s<>'Д');
write(a);
<span>end.</span>