Составить программу для определения суммы чисел: -5, -1, 3, 27.

Var sum, i: integer;
begin
i:=-5; sum:=0;
while i<=27 do begin
sum:=sum+i;
i:=i+4;
end;
writeln(sum);
end.