Объяснение:
var x, y : real;
begin
write('x = '); readln(x);
y := 5 * x + x*x / 8;
writeln('y = ', y);
end.
