program CalculateY; var x: real; y: real; begin writeln('Enter the value of x: '); readln(x);
if x <> 0 then begin y := 2 / x; writeln('The value of y = ', y:0:2); end else begin writeln('Cannot divide by zero. Please enter a non-zero value for x.'); end; end.
program CalculateY;
var
x: real;
y: real;
begin
writeln('Enter the value of x: ');
readln(x);
if x <> 0 then
begin
y := 2 / x;
writeln('The value of y = ', y:0:2);
end
else
begin
writeln('Cannot divide by zero. Please enter a non-zero value for x.');
end;
end.