Определите значения в столбце F, если известно, что F=(A или B) и (неB и A)

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.

1)

var

a,b,x,y: real;

begin

readln(a,b);

x: =(a+b)/2;

y: =2*a*b;

if a> b then

begin

a: =y;

b: =x;

end

else

begin

a: =x;

b: =y;

end;

writeln('a=',a: 8: 3);

writeln('b=',b: 8: 3);

end.

2)

var

d,m: integer;

begin

readln(d,m);

if (d< 1) or (d> 31) then writeln ('день введен неверно');

if (m< 1) or (m> 12) then writeln ('месяц введен неверно');

end.

3)

var 

a,b,c: integer;

begin

readln(a,b,c);

if (a> b) and (a> c) then writeln(a);

if (b> a) and (b> c) then writeln(b);

if (c> a) and (c> b) then writeln(c);

end.

1)  2, 5, 4, 7, 8, 9,  16,  11, 32

2           5

4           7

8           9

16         11

32

*2           +2

чётное порядковое число умножается на 2

нечётное порядковое число увеличивается на 2

2) 3, 8, 15,  24,  35, 48,  63, 80

3

3+5=8

8+7=15

15+9=24

24+11=35

35+13=48

48+15=63

63+17=80

(к предыдущему ответу прибавляется по порядку идущее нечётное число)