решите в паскале только номер 6

var
x,x3,x5,i:real; //Если вписываешь обычные числа там 1 2 3 и т д, то вместо real напиши integer;
Begin
write('x=');
Readln(x);
writeln('x3=);
Readln('x3');
Writeln('x5=');
Readln(x5);
x3:=x3*x3*x3;
x5:=x5*x5*x5*x5*x5;
i:=x-x3/3+x5/5;
Writeln('Ответ ', i);
readln();
end.

спасибо