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

Program fa;
var x:real;
begin
read (x);
writeln (2/x);
end.

Var
x,y:real;
Begin
Writeln('Введите значение x: ');
Readln(x);
y:=2/x;
Writeln('Значение y: ',y);
End.