отыскать сумму нечётных чисел, из интервала от 11 до 99, отыскать

program zz1;

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

begin

for i:=11 to 99 do // организуем цикл, в котором переберем числа от 11 до 99

begin

if i mod 2 = 1 then s:=s + i; // проверяем, если число нечетное, то добавляем число в сумму

end;

writeln( сумма нечетных чисел, из интервала от 11 до 99 = , s); // выводим ответ

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

begin

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

k:=k + 1;  // считаем количество

end;

writeln( среднее арифметическое чисел от 1 до 50 = , p/k); // выводим ответ

end.