Решить в паскале. пешеход идёт со скоростью 5 км/ч.с каэдым часом скорость пешехода понижается на км.сколько пройдёт пешеход за 5 часов.

program test;
var speed, sum, i, hours: integer;
begin
   sum:=0;
   speed:=5;
   hours:=5;

   for i:=hours downto (hours - 5) do
   begin
      sum:=sum+speed;
      speed:=speed-1;
   end;

   writeln(sum, 'km');
   readln;
end.