Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры

var a,b,s,i: integer;

begin

readln(a,b);

if a> b then

for i: =b to a do

s: =s+i

else

for i: =a to b do

s: =s+i;

writeln(s);

end.

Const     n = 4;     c = 7; var     a: array[1..n,1..n] of integer;     i,j: integer;     s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < c then s: =s+a[i,j];               end;       writeln       end; writeln('s = ',s); end.

#include< stdio.h> #include< conio.h> int main(int argc, char *argv[]) {       char s[256];       gets(s);       int l = 0;       while(s[++l]);       int i = l / 2;       l = i + l % 2;       while(i> =0)             if (s[--i] ! = s[l++]) i = -3;       printf(i! =-3? "da": "net");       getch(); }