Составьте программу для вычисления количества первых нечетных чисел, в сумме дающих 100. В paskal !

Program n1;var i,k,s: integer;beginwhile s<>100 dobeginif i mod 2<>0 thenbegins:=s+i;k:=k+1;end;i:=i+1;end;writeln(k);end.