//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x='); var (a,t):=(0,0.0);
for var i:=0 to x do
begin
a:=i; t:=2*a**2-9*a+(1/2);
Writeln('при а=',a,' ','выражение равно=',t);
end;
end.