Написать программу вычисления значения выражения у=2/х в Паскале

Предыдущий
вопрос Следующий
вопрос

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.