program ;
var
x,y:real;
begin
write ('Введите X = ');
readln(x);
y:=power(x,7)-4*sqr(x)+3;
writeln ('ответ Y = ',y);
end.
Объяснение:
