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

program zz1;

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

begin

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

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

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

begin

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

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

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

end;

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

end.