Запрограммировать б) s: =1; а: =1 от i=1до 3 цикл s: =s+i.(i+1)а а: =а+2

Var
  s,a,i:integer;
Begin
  s:=1; a:=1;
  for i:= 1 to 3 do
    Begin
       s:=s+i*(i+1)*a;
       a:=a+2;
    End;
 write('S = ',s,', A = ',a);
End.