Pr=array[l..303 of real; var

Ryl, k,kl:real;



.