Функции.Описать Функцию...

[Tiny]

Описать функцию Sum Range (A,B) целого типа, показывающую сумму всех целых чисел от A до B включительно (A и B целые). Если A>B, то функция возвращается в 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A,B,C.

Я думала над задачей и запуталась окончательно..(

[Google2010]

язык реализации?

[Tiny]

делфи паскаль

[Google2010]

function SR(a,b:integer):integer;
var i:integer;
s:integer;
begin
s:=0
if a<=b then for i:=a to b do
         inc(s,i);
sr:=s; 
end;

использование

ab:=sr(a,b);bc:=sr(b,c);

[Tiny]

спасибо огромное