Составить программу, используя цикл с постусловием: подсчитать сумму всех нечётных чисел от 230 до 430

Var i,s: integer; begin clrscr; s: =0; for i: =230 to 430 do s: =s+i; writeln(s); end.

Program znanija; const n = 7; var  a: array[1..n] of integer; mini, min, i, b: integer; begin mini : = 1; write('введите массив из ', n, ' элементов: '); for i : = 1 to n do begin  read(b);   a[i] : = b;   if i = 1 then min : = b;       if b < min then    begin  min : = b;   mini : = i;   end;       end; write('массив в обратном порядке: '); for i : = n downto 1 do  write(a[i], ' ');   writeln();   write('минимальный элемент массива ', min, ', его номер ', mini); end.

Var  x,y: integer;   begin writeln('программа определения местонахождения точки'); writeln('введите координаты точки'); readln(x,y); //вводим координаты точки  if (x> =0) and (y> =0) then writeln('1 четверть'); //точка принадлежит 1 ч. если обе координаты положительны (это из ) if (x< 0) and (y> =0) then writeln('2 четверть'); //точка принадлежит 2 ч. если х< 0, а y неотрицателен  (это из ) if (x< 0) and (y< 0) then writeln('3 четверть'); //точка принадлежит 3 ч. если обе координаты отрицательны (это из ) if (x> =0) and (y< 0) then writeln('4 четверть'); //точка принадлежит 4 ч. если х неотрицателен, а y< 0 (это из ) end.