Составьте программу вычисления сумы 5+9+13+17++109

//Pascal
var
  tick, sum: integer;
begin
while tick <> 108 do
begin
  tick := tick + 4;
  sum := sum + tick;
end;
writeln(sum);  
end.