Составьте программу вычисления суммы целых чисел от 2 до 17.
Пример работы:
Сумма чисел от 2 до 17 составляет 152
помогите пж(через паскаль надо)

program summ_ot_2_do_17;uses crt;var a,b:real;  Begin   b:= 0;  a:= 2;   while a<=17 do begin   b:= b+a;   a:= a+1;   end; writeln('Summa = ', b);End.