Составить программу на яз. pascal, переводящую температуру вводимую в градусах в кельвины

Var a:real;beginwrite('Введиете градусы Цельсия: ');readln(a);writeln('Градусы Кельвина: ',a+273);end.

var
  i: integer;
  a: array [1..15] of integer;

 

begin
  write('Исходный массив: ');
  for i:= 1 to 15 do //Формируем и распечатываем массив
  begin
    a[i]:= random(8); 
    write(a[i],' ');
  end;
  writeln; //Перевод на новую строку
  write('Преобразованный массив: ');
  for i:= 1 to 15 do
  begin
    if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}
    else a[i]:= a[i] * 2;
    write(a[i], ' ');
  end;
  writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}
end.

Отметь решение, как лучшее

 (A∧¬B)импликация(C∨D)
А  В  С  Д ¬В  A∧¬B   C∨D   (A∧¬B)импликация(C∨D)
0  0  0  0  1      0          0          1
0  0  0  1  1      0          1           1
0  0  1  0  1      0          1          1
0  0  1  1  1      0          1          1
0  1  0  0  0      0           0        1
0  1  0  1  0      0          1          1
0  1  1  0  0      0          1          1
0  1  1  1  0      0          1          1
1  0  0  0  1      1          0          0
1  0  0  1  1      1          1          1
1  0  1  0  1      1          1          1
1  0  1  1  1      1          1          1
1  1  0  0  0      0          0          1
1  1  0  1  0      0          1          1
1  1  1  0  0      0          1          1
1  1  1  1  0      0          1          1

((А импликация B)∧¬B)импликация ¬A

А  В  А импликация B  не В  ((А импликация B)∧¬B)  ¬A  конец
0   0      1                      1              1                            1        1
0  1        1                    0               0                            1         1
1   0       0                    1               0                            0         1
1   1       1                    0               0                            0         1