вычислите значение выражений по формуле a/c*b/d=(ab-c)/cd

дано четырехзначное число. определить, входят ли в него цифры 2 или 7

СРОЧНО ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!

var T: array[1..12] of real;
I: integer; Tsred: real;
begin
for I:=1 to 12 do
begin
write('T[', I:2,']= ');
read (T[I])
end;
Tsred:=0;
for I:=1 to 12 do
Tsred:=Tsred+T[I];
Tsred:=Tsred/12;
writeln( 'Среднегодовая температура = ', Tsred:6:2, ' градусов');
for I:=l to 12 do
begin
Dt[I]:= T[I] - Tsred;
writeln('Dt[',I:2,']=', Dt[I]:6:2)
end.
Где здесь ошибка??? Пишет ожидался оператор.

2.вычислите значение логического выражения при всех возможных значениях логических величин A и B; не(не A или не B) или A
3.вычислите значение логического выражения при всех возможных значениях логических величин A,B и C не(A или B и C) или A
4.вычислите значение логического выражения при всех возможных значениях логических величин A и B; B или не A и не B.

X = Ложь, У = Истина, Z = Ложь:
а) X и не (Z или У) или не Z;
б) не X или X и (У или Z);
в) (X или У и не Z) и Z.
9. Вычислить значение логического выражения, если
X - Истина, У - Ложь, Z - Ложь:
а) не X или не У или не Z;
б) (не X или не У) и (X или У);
в) X и У или X и Z или не Z.
10. Вычислить значение логического выражения, если
А - Ложь, В - Ложь, С - Истина:
а) (не А или не В) и не С;
б) (не А или не В) и (А или В)\
в) А и В или А и С или не С.

http://prntscr.com/5gsh70

2. чему будет равно значение, вычисленное по формуле =СУММ (B1:C4) +F2*E4 - A3