var
a:real;
begin
a:=0;
repeat
write('При а=',a,', значение многочлена: ');
writeln(2*exp(5*ln(a))-2*sqr(a)-1.7*a+12);
a:=a+1.5;
until a>10.5;
end.
