program laba_4; uses crt,for44; var summa : real; n : byte; zn: shortint; x : integer; t : real; p : real; begin clrscr; write ('step tochnosti: '); readln (t); write ('x: '); readln (x); summa:= 0; p:=0; n:=1; zn:=1; { repeat procnew(summa, x, n, zn ,p); until ((x/n