Бірінші 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).