Можно ли записать данную программу используя циклы while и repeat? если да то предложите свой вариант. program 5; uses crt; var i,n: integer ; x,y,s,p: real; begin x: =4.1; s: =0; p: =1; n: =10; for i: =1 to n do begin s: = s+ ln(sqr(x)+i); p: = p*(i+4*cos(x+i)); end; y: = s+p; writeln('=',x: 5: 1,'=',y: 10: 2); writeln('=',s: 5: 3,'=',p: 10: 2); end.