Для каждого из чисел ложно высказывания число > 45 или не(число четное) 85; 16; 35; 134.не пойму

Если "и", то чтобы было правильно должны быть правильны оба чтобы было истинно, если "или", то должно быть правильно хотя бы одно чтобы было истинно.
Тоесть 85,134 они больше 45-и (истинно), 35 и 85 не четные (истинно).
Осталось число 16, оно не подходит не к одному из этих высказываний, следовательно оно ложное.

Более красивый вариант) 

Program N_1;                         //Название программы
Var a,b,c:integer;                   //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника');  //Вывести данную строку
readln(a,b);                         //Считать a и b
if a<b                                 //Если a<b
then begin                          //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c)       //и вывести его
end
else begin                         //Если a>b
c:=a*b;                             //то найти площадь
writeln('Площадь= ',c)       //и вывести ее.
end;
END.

Var
  i:integer;
  t:array[1..3,0..31]of real;
begin
write('Введите температуру в декабре по дням: ');
for i:=1 to 31 do
  begin
  readln(t[1,i]);
  t[1,0]:=t[1,0]+t[1,i];
  end;
t[1,0]:=t[1,0]/31;
write('Введите температуру в январе по дням: ');
for i:=1 to 31 do
  begin
  readln(t[2,i]);
  t[2,0]:=t[2,0]+t[2,i];
  end;
t[2,0]:=t[2,0]/31;
write('Введите температуру в феврале по дням: ');
for i:=1 to 28 do
  begin
  readln(t[3,i]);
  t[3,0]:=t[3,0]+t[3,i];
  end;
t[3,0]:=t[3,0]/28;
writeln('Средняя температура в декабре: ',t[1,0]);
writeln('Средняя температура в январе: ',t[2,0]);
writeln('Средняя температура в феврале: ',t[3,0]);
writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3);
end.