Program Poluotlichnik_1;
const n=99;
var
  sum,i:integer;
begin
  sum := 0;
  for i:=1 to n do  
    if i mod 2 = 1 then
      sum := sum + i;
  writeln('Сумма нечетных чисел равна ',sum,);
end.

Program Poluotlichnik_2;
const n=50;
var
  sum,i:integer;
begin
  sum := 0;
  for i:=1 to n do
    sum := sum + i;
  writeln('Среднее арифметичесоке равно ',sum/50,);
end.

Verified answer

1)

var s,i:integer;

begin

s:=0;

for i:=11 to 99 do

if i mod 2 = 1 then s:=s+i;

writeln(s);

end.

2)

var s,i:integer;

begin

s:=0;

for i:=1 to 50 do

s:=s+i;

writeln(s/50);

end.

Вопросы недочеты в ЛС