Даны 3 числа найти произведение тех из них которые по модулю меньше 1 написать программу на pascal

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.

Python:

class book:

   def __init__(self, author, name, date):

       self.author = author

       self.name = name

       self.date = date

   

   def print(self):

       print(self.name, self.author, self.date)

book1 = book("абоба", "математика 8 класс", 1951)

book2 = book("абоба", "информатика 8 класс", 1992)

book3 = book("абоба", "математика 10 класс", 1991)

book4 = book("абоба1", "математика 10 класс", 1994)

book5 = book("абоба1", "информатика 10 класс", 1955)

book6 = book("абоба1", "информатика 11 класс", 1993)

book7 = book("абоба", "физика 8 класс", 1952)

book8 = book("абоба", "информатика 8 класс", 1871)

book9 = book("абоба1", "физика 8 класс", 1951)

book10 = book("абоба1", "физика 8 класс", 1971)

library = [book1, book2, book3, book4, book5, book6, book7, book8, book9, book10]

# a

author = "абоба" # автор, книги которого ищем

print("а)")

for i in range(len(library)):

   if library[i].author == author and library[i].date >= 1960:

       print(library[i].name)

# б

print("б)")

for i in range(len(library)):

   for k in library[i].name.split():

       if k == 'информатика':

           library[i].print()

# в

print("в)")

for i in range(len(library) - 1):

   for j in range(i + 1, len(library)):

       if library[i].author == library[j].author and library[i].name == library[j].name:

           library[i].print()

           library[j].print()

1. Списки - особый вид форматирования абзацев.  2. Существует три типа списков: маркированный, нумерованный номер и многоуровневый.  3. Существует несколько оформления некоторого фрагмента текста в виде маркированного или нумерованного списка Основной. Перед созданием списка курсор следует разместить в нужном месте документа и выполнить Главная --> Абзац --> Маркеры или Нумерация. В текущем месте документа появится маркер или номер того вида списка, который использовался последним. После этого можно вводить первый элемент списка. После его ввода следует нажать клавишу Enter - следующий номер или маркер появляются в следующей строке документа автоматически. Когда последний элемент списка введен, нужно повторно выбрать кнопку соответствующего списка на Ленте, или дважды нажать Enter, или удалить номер (маркер) клавишей Автоматическое создание списка. Разместив курсор в нужном месте документа, следует ввести некие специальные условные символы, которые определяют вид желаемого списка, и нажать клавишу Пробел. Сразу же условные символы превратятся в соответствующий маркер или номер, после чего можно вводить первый элемент списка Превращение текста в список. Если некоторые абзацы текста, введенного ранее, нужно оформить как список, то следует выделить эти абзацы и выбрать на Ленте кнопку соответствующего типа списка: Маркеры, Нумерация. 3. Для создания многоуровневого списка на Ленте следует выбрать кнопку Многоуровневый список и вариант оформления списка в Библиотеке списков. Дальше нужно вводить элементы списка, изменяя при необходимости их уровни вложения. 4. Колонки - прием форматирования текста, применяемое для лучшей читабельности объемного текста. 5. Для вставки в текстовый документ графического изображения из файла, который сохранен на внешнем носителе, следует выполнить Вставка - Иллюстрации - Рисунок. После этого в диалоговом окне Вставка рисунка выбрать нужный файл. Для вставки в текстовый документ графического изображения из коллекций нужно выполнить Вставка - Иллюстрации - Клип. Эти действия открывают область задач Клип, которая предоставляет возможность осуществлять поиск нужных изображений и просматривать эскизы найденных.  6. Обтекание рисунка текстом - функция, которая используется для компактного размещения материала и связывания между собой рисунка и текста. Можно задать такие виды обтекания: обтекание текстом, вокруг рамки, по контуру, сквозное, сверху и снизу.