Перед условием вы должны задать переменным значения s:=0, i:=1
если вы берете, например, n=20, как у вас может быть сумма равна 21? 1+2+3+4+5+...+19+20=???​

1) посчитать сумму всех нечетных чисел от 230 до 430
// PascalABC.NET 3.0, сборка 1088
var
  i,s:integer;
begin
  i:=231; s:=0;
  repeat
    s:=s+i; i:=i+2
  until i>400;
  Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.

Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775

2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=900;
  repeat
    Write('(',i:3,',',sqrt(i):9:5,') ');
    i:=i-7
  until i<0;
  Writeln;
end.

Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000)
( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011)
( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000)
( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000)

3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
  n:longint;
  s:integer;
begin
  Write('n='); Read(n);
  repeat
    s:=s + (n mod 10);
    n:=n div 10
  until n=0;
  Writeln('Сумма цифр числа равна ',s)
end.

Тестовое решение:
n=472305
Сумма цифр числа равна 21

перевести числа: 0,345; 400; 256 (из восьмиричной в двоичную)F0C,FF; AA ( из шестнадцатиричной в двоичную)
И 765,25 из шестнадцатиричной в двоичную. Заранее
 ОТВЕТ
Покажу на примере первого числа.

1) Переводим в двоичную.

Сначала целую часть делением:

312 : 2 = 156 ост. 0
156 : 2 = 78 ост. 0
78 : 2 = 39 ост. 0
39 : 2 = 19 ост. 1
19 : 2 = 9 ост. 1
9 : 2 = 4 ост. 1
4 : 2 = 2 ост. 0
2 : 2 = 1 ост. 0
1 : 2 = 0 ост. 1

Для дробной нужно определиться сколько знаков после запятой нам нужно.
Пусть будет 8, чтобы в шестнадцатеричной получилось 2…

,96 · 2 = 1,92
,92 · 2 = 1,84
,84 · 2 = 1,68
,68 · 2 = 1,36
,36 · 2 = 0,72
,72 · 2 = 1,44
,44 · 2 = 0,88
,88 · 2 = 1,76

Следовательно 312,96 (10) → 100111000,11110101 (2)

Для перевода из двоичной в восьмеричную и шестнадцатеричную нужно разбить на тройки и квадры влево и вправо от запятой, при необходимости дописав нули:

100 111 000,111 101 010 (2) → 470,752 (8)
1 0011 1000,1111 0101 (2) → 138,F5 (16)

Теперь сделаем проверку:

4*8*8 + 7*8 + 7/8 + 5/8/8 + 2/8/8/8 = 256 + 56 + 0,875 + 0,078125 + 0,00390625 = 312,95703125
1*16*16 + 3*16 + 8 + 15/16 + 5/16/16 = 256 + 48 + 8 + 0,9375 + 0,01953125 = 312,95703125

Если полученный результат округлить до 2 знаков после запятой, то получится исходное число!