Question

Помогите решить задачу на языке Паскаль!"!!!!!
y=15-2x-x2(квадрат)

Answer 1

var x:integer;
begin
readln(x);
writeln('y = ',15-2*x-x*x)
end.