Бірінші 10санның квадраттарының қосындысын  есептеңіз:

1) S:=0; For i:=1 To 10 Do S:=S+i*I; Writeln(‘s=’ ,s);

2) S:=1; For i:=1 To 13 Do  S:=S*I; WriteLn(‘s=’,s);

3) Read (n); s:=n*(n+1)/2; WriteLn(‘s=’,s);

4) Read (n); s:=sqr(n*(n+1)/2;nWriteLn(‘s=’,s);

5) S:=1; For i:=1 To 10 Do S:=S*I; WriteLn(‘s=’,s).