паскаль. массив. цикл. здвиг элементов

[vykker]

ну хоть на этом спасибо

[ROMA2PVT]

Program summa;
Uses
   Crt;
var
 a,b,i,sum,c: integer;

function SumEl(Var c,d:integer):integer;
begin
sum:=0;
for i:=c to d do
begin
sum:=sum+i;
end;
end;

begin
Clrscr;
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b);
write('Введите число c: ');
readln(c);
sumEl(a,b);
writeln('Сумма чисел от ',a,'  до ',b,' равна: ',sum);
sumEl(b,c);
writeln('Сумма чисел от ',b,'  до ',c,' равна: ',sum);
end.

[vykker]

СПАСИБО!!!

[ROMA2PVT]

Не за что.