Составьте программу на языке Паскаль для вычисления суммы:
Р = 4 + 7 +10 + 13. . . + K , где P > 4

var K, P, i: integer; begin read(K); i := 1; while i < K do begini := i + 3; P := P + i; end; Print(P); end.

или:

begin var K := ReadInteger('K:');Print((4+K)/2*((K-4)/3+1)); end.

Примеры работ: