Современный Паскаль все сделает сам...
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x='); Writeln('F=',1/(x-1))
end.
<u>Примеры</u>
x= -3.5
F=-0.222222222222222
x= 1.000001
F=1000000.00008227
x= 1
F=бесконечность
1 Гб = 0,001 Тб
6363 Гб = 6,363 Тб
Program pr_1;
var i,n,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('s=',s);<span>
end.</span>