ввести x и y и вычислить S.

Begin
var x:= ReadReal('x =');
var y:= ReadReal('y =');
if (x = 0)and(y = 0)then
Writeln('S = ',0);
if (x lt;gt; 0)and(y lt;gt; 0)then
Writeln('S = ', 1/x + 1/y);
if (x lt;gt; 0)and(y = 0) then
Writeln('S = ', 1/x);
if (x = 0)and(y lt;gt; 0) then
Writeln('S = ', 1/y);
end.