Написать программу в Pascal. Найти сумму 10 нечетных чисел.

program zz1;

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

begin

k:=0; / / задаем начальное значение для количества нечетных чисел

i:=1; / / задаем начальное значение для параметра цикла

while k < 10 do / / организуем цикл, пока количество нечетных чисел не достигнет десяти

begin

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

then begin k:=k + 1; s:=s + i; end;

i:=i + 1; / / увеличиваем параметр цикла на единицу

end;

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

end.