Бірінші 13 санның  көбейтіндісін  есептеңіз:

1) P:=0; For i:=1 To 13 Do P:=P+i*I; WriteLn(‘P=’,P);

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

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

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

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