var K, P, i: integer;
begin
read(K);
i := 1;
while i < K do
i := i + 3;
P := P + i;
end;
Print(P);
end.
или:
var K := ReadInteger('K:');
Print((4+K)/2*((K-4)/3+1));
var K, P, i: integer;
begin
read(K);
i := 1;
while i < K do
begin
i := i + 3;
P := P + i;
end;
Print(P);
end.
или:
begin
var K := ReadInteger('K:');
Print((4+K)/2*((K-4)/3+1));
end.