While i i 1. Begin Информатика. I=+1 I+=1. (1+I)^I. S 0 I 0 while i<5. Writeln('1+3='); writeln(1+3);. Uses CRT. Var i n integer begin i= 1 while i=10. Var a,s: integer; begin s:=0; for a:=1 to 4 do s:=s+a; writeln('s=', s); end.. I++ цикл while