program Summation;
vaK, P, i: integer;
begiP := 0K := 4i := 1;
repeaP := P + KK := K + 3i := i + 1until P > 4;
writeln('Sum of the series: ', P)writeln('Number of terms: ', i)end.
program Summation;
va
K, P, i: integer;
begi
P := 0
K := 4
i := 1;
repea
P := P + K
K := K + 3
i := i + 1
until P > 4;
writeln('Sum of the series: ', P)
writeln('Number of terms: ', i)
end.