Вывести на экран сумму чисел от 10 (не включительно) до 50 (не включительно).

program zz1;

var s, i:integer; / /заводим переменные для суммы и цикла

begin

for i:=11 to 49 do / /организуем цикл, который переберет все числа от 10 до 50 не включая эти числа

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

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

end.