Составьте программу вычисления суммы целых чисел от 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.