составить алгоритм который выводит сумму от 2 до 200

program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

i: = 2; / / задаем начальное значение ряда чисел

while i < = 200 do / / организуем цикл, в котором переберем все числа от двух до двухсот

begin

s:=s + i; / / число ряда прибавляем к сумме

i:=i + 1; / / получаем следующее число из ряда

end;

write (' полученная сумма чисел = ', s); / / выводим ответ

end.