Написать программный код к : определите и выведите на экран сумму всех нечётных двузначных чисел

1)
Var s,i : Integer;
Begin
  i:=1; s:=0;
  While i<=99 do
  Begin
    s:=s+i;
    i:=i+2;
  end;
  Writeln(s);
end.

2)
Begin
  Writeln((1+99)*50 div 2);
end.