Question

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

Answer 1

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

Answer 2

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