можно ли записать данную программу используя циклы 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=',x:5:1,'___Y=',y:10:2);    
writeln('___s=',s:5:3,'___P=',p:10:2);    
end.