program EquationCalculation;
varx, y: real;
beginwriteln('Введите значение x: ');readln(x);
y := x * x + 5;
writeln('Результат вычисления y = x^2 + 5: ', y);
end.
program EquationCalculation;
var
x, y: real;
begin
writeln('Введите значение x: ');
readln(x);
y := x * x + 5;
writeln('Результат вычисления y = x^2 + 5: ', y);
end.