var ababab,bababa,sususumamama:Integer;beginWriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона');Write('Пожалуйста введите наименшее число диапазона ');ReadLn(ababab);Write('А теперь введите наибольшее число диапазона ');ReadLn(bababa);//оформляем ввод данныхsususumamama:=0;//присваиваем сумме значение 0while ababab<=bababa dobegin sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а ababab:=ababab+1;//увеличиваем число а на 1end;Write('Сумма всех чисел диапазона равна '+sususumamama);//выводим сумму чиселend.