НАДО ПРЯМ СЕЙЧАС ОТПРАВИТЬ СОР УМОЛЯЮ ЭТО ПО ИНФОРМАТИКЕ 6 КЛАСС​

Базу не дает добавить

1.
SELECT Перевозки.ДатаОтгрузки, Перевозки.НомерВагона, Перевозки.КодГруза, Перевозки.Стоимость, Перевозки.ДатаВозвратаВагона
FROM Перевозки
WHERE (((Month([ДатаОтгрузки]))>=1 And (Month([ДатаОтгрузки]))<7) AND ((Year([ДатаОтгрузки]))=Year(Date())-1))
ORDER BY Перевозки.ДатаОтгрузки, Перевозки.НомерВагона;

2.
SELECT DISTINCTROW НаименованиеГруза.Наименование, Avg(Перевозки.Стоимость) AS [Avg-Стоимость], Year([Перевозки]![ДатаОтгрузки]) AS [Год отгрузки]
FROM НаименованиеГруза INNER JOIN Перевозки ON НаименованиеГруза.Код = Перевозки.КодГруза
GROUP BY НаименованиеГруза.Наименование, Year([Перевозки]![ДатаОтгрузки]), Перевозки.КодГруза;

3. не знаю как срок считать

4.
SELECT DISTINCTROW Sum(Перевозки.Стоимость) AS [ОбщаяСтоимость перевозок за период]
FROM Перевозки
HAVING (((Перевозки.ДатаОтгрузки) Between [:d1] And [:d2]));

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.