Найти сумму целых чисел от 50 до 150,желательно с блок схемой

И блок-схему тут рисовать бессмысленно

Это сумма арифметической прогрессии с первым членом a₁=50, разностью d=1, и последним членом aₐ=150. Количество членов в прогрессии можно найти как 150-50+1=101begin  Writeln((50+150)/2*101);end.Результат10100