Вводится последовательность из n целых положительных элементов. определить, содержит ли последовательность хотя бы одно простое число. для определения простого числа создать процедуру.

Var i,N,a:integer;      [где а-вводимое число]
begin
for i:= 1 to N do
  begin
  readln (a);
  if a (условие на простое число)then writeln ('содержит') else writeln ('не содержит');
  end;
end.

а) БД «Погода», запись номер 3.
       ВЛАЖНОСТЬ = 90
       ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
       АВТОР = "Толстой Л.Н."
       ГОД = 1990
в) БД «Успеваемость», запись номер 4.
       ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
       Температура > 0
       ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
       ГОД = 1982
       Полка < 5
в) БД «Факультативы», запись номер 4.
       Увлечения matches "*геологи".
       Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.

2 в.н.э - Изобретение технологии изготовления бумаги в Китае
Середина 15 в. - Начало книгопечатания в Европе
2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии
80- гг. 20 в. - Появление первых лазерных дисков
5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте
Середина 16 в - Начало книгопечатания в Росии
60-е гг. 20 в. - Появление первых жестких дисков для компьютеров
1895 г - Демонстрация первого кинофильма
70-е гг 19 в -  Первая запись звука с фонографа
20-е гг 20 в - Изобретение магнитофона
1839 г. - Изобретение фотографии