Найди значение выражения.

(x<15)∨(x<14)¯¯¯¯¯¯¯¯¯¯¯¯ для числа x=4

1)
program s_parallelogramm;
var
a,h,s: real;
begin
write('Основание = '); readln(a);
write('Высота = '); read(h);
if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')
else
begin
s:=a*h;
writeln('Площадь (S) параллелограмма = ', s);
end;
end.

2)
program sp_kvadrata;
var
a,p,s: real;
begin
write('Сторона квадрата = '); readln(a);
p:=4*a;
s:=sqr(a);
writeln('Периметр (P) квадарата = ', p);
writeln('Площадь (S) квадарата = ', s);
end.

3)
program e_kinet;
var
m,v,e: real;
begin
write('Масса тела (m, кг) = '); readln(m);
write('Скорость тела (v, км/ч) = '); readln(v);
e:=m*sqr(v)/2;
writeln('Кинетическая энергия (Ек, Дж) = ', e);
end.

1)
program vivod_chisel;
var
i, a: integer;
begin
a:=11;
for i:=1 to 45 do
begin
write(a:3);
a:=a+2;
end;
end.

2)
program sym_trex_chisel_krat5;
var
mas: array[1..900] of integer;
i,a,sym: integer;
begin
a:=100;
sym:=0;
for i:=1 to 900 do
begin
mas[i]:=a;
if mas[i] mod 5 = 0 then sym:=sym+mas[i];
a:=a+1;
end;
writeln('Сумма трехзначных чисел, кратных 5 = ', sym);
end.

Var
  a,b,i,n,j,l,ier:integer;
  s:string;
  p:boolean;
begin
  Write('Введите границы интервала в виде пары натуральных чисел ');
  Read(a,b);
  n:=0;
  for i:=a to b do
  begin
    Str(i,s);
    l:=Length(s);
    if l=1 then Inc(n)
    else begin
      j:=1;
      repeat
        p:=(s[j]=s[l-j+1]);
        Inc(j)
      until (j>l) or (not p);
      if p then Inc(n)
    end
  end;
  Writeln('Количество палиндромов равно ',n)
end.

Тестовое решение:
Введите границы интервала в виде пары натуральных чисел 1550 2450
Количество палиндромов равно 10