Написать программу,определяющую нахождение суммы натуральных чисел от 1-25

1

Ответы и объяснения

2013-11-20T13:21:57+04:00
Var
  i, sum : integer;
begin
  sum := 0;
  for i := 1 to 25 do sum := sum + i;
  write (sum);
end.