program CalculateFunctionvar x, y: realbegiwrite('Enter the value of x: ')readln(x);
y := x * x;
writeln('The value of the function y = x^2 is: ', y)end.
program CalculateFunction
var x, y: real
begi
write('Enter the value of x: ')
readln(x);
y := x * x;
writeln('The value of the function y = x^2 is: ', y)
end.