Помогите составить программы пожалуйста!
1. Program m1; var s,n:real; begin n:=10; s:=0; while n<=124 do<br>begin s:=s+n; n:=n+2; end; writeln('сумма=',s); end. 2. Program m1; var s,n:real; i:integer; begin n:=10; s:=0; for i:=1 to 58 do begin s:=s+n; n:=n+2; end; writeln('сумма=',s); end.
спасибо огромное!!очень помогли