ПОМОГИТЕ 5,6,7 можно хотя бы одно, но помогите

Задание 5.var  i, s: integer;begin  s := 0;  i := 5;  repeat    s := s + i;    i := i + 6;  until i > 131;  writeln(s);end.Задание 6.var  i, s: integer;begin  s := 0;  for i := 26 to 47 do    s := s + i * i;  writeln(s);end.Задание 7.var  i, s, p: integer;begin  s := 0;  p := 1;  for i := 20 to 40 do  begin    if i mod 2 <> 0 then      s := s + i    else if i mod 6 = 0 then      p := p * i;  end;  writeln(s, , p);end.