Паскаль. создать программу для нахождения суммы ряда: s=x^0+x^2+x^4+x^6++x^10

//PascalABC.NET
var
s,x:int64;
i:integer;
begin
Readln(x);
For i:=0 to 5 do s:=s+Round(Power(x,i*2));
Writeln(s);
end.