all / GENER25

program generator;
uses crt;
var n,q,i,j,code,t:integer;
c,c1,R0,R1,R2,k1,m,d,ver,niz:real;
z,x:string;
f1:text;

begin
clrscr;
assign (f1, 'file2.txt');
rewrite (f1);
writeln('‚ўҐ¤ЁвҐ n: ');readln(n);
writeln('‚ўҐ¤ЁвҐ k1: ');readln(k1);
writeln('‚ўҐ¤ЁвҐ R0: ');readln(R0);
writeln('‚ўҐ¤ЁвҐ q: ');readln(q);
t:=0;
ver:=1/q;
niz:=0;
for j:=1 to q do
begin
m:=0; d:=0;
for i:=1 to n do
begin
if i=1 then R1:=R0;
R1:=abs(R1*k1);
R2:=frac(R1*R1);
str(R2:0:10,z);
x:=copy(z,5,6);
val(x,c1,code);
c:=c1/1000000;
m:=m+c;
d:=d+sqr(c-0.5);
R1:=c;
if j=1 then write(f1, c:0:6, ' ');
if (c>=niz) and (c<=ver) then t:=t+1;
end;
if j=1 then writeln(f1);
writeln(f1, niz:2:3, '-', ver:2:3, ': ', t, ' ', t/n:0:3);
t:=0;
niz:=niz+1/q;
ver:=ver+1/q;
end;
m:=m/n;
d:=d/n;
writeln(f1);
writeln(f1, 'Њ в. ®¦Ё¤ ­ЁҐ = ',m:2:4);
writeln(f1, '„ЁбЇҐабЁп = ', d:2:4);
readln;
close(f1);
end.