Даны наименования трех газет и три фамилии подписчиков. Определить,выписывает ли Петров газету "Правда" - Pascal ABC

Формулировка задачи:

Даны наименования трех газет и три фамилии подписчиков. Определить,выписывает ли Петров газету "Правда".

Решение задачи: «Даны наименования трех газет и три фамилии подписчиков. Определить,выписывает ли Петров газету "Правда"»

Листинг программы

const
  n=3;
type
  podpis=record
    fam:string[128];
    gaz1,gaz2,gaz3:string[64];
  end;
var
  chels:array [1..n] of podpis;
  i:integer;
begin
  for i:=1 to n do
    with chels[i] do
      begin
        write('Введите фамилию подписчика: ');  readln(fam);
        write('Введите название 1-й газеты: ');  readln(gaz1);
        write('Введите название 2-й газеты: ');  readln(gaz2);
        write('Введите название 3-й газеты: ');  readln(gaz3);
      end;
  for i:=1 to n do
    if (chels[i].fam='Петров') and
        ((chels[i].gaz1='Правда') or (chels[i].gaz2='Правда') or (chels[i].gaz3='Правда')) then
        writeln('Да, Петров выписывает "Правду".');
  readln;
end.

Объяснение кода листинга программы

В программе объявлены следующие переменные:
- n - количество газет и подписчиков (равно 3)
- podpis - структура данных, в которой хранятся данные о подписчиках (fam - фамилия подписчика, gaz1, gaz2, gaz3 - названия газет)
- chels - массив структур podpis, в котором хранятся данные о подписчиках
- i - счетчик, используемый в циклах
В первой части программы происходит ввод данных о подписчиках:
- Запрашивается фамилия подписчика
- Запрашивается название первой газеты
- Запрашивается название второй газеты
- Запрашивается название третьей газеты
Во второй части программы происходит проверка, выписывает ли Петров газету Правда:
- Проверяется, является ли фамилия подписчика Петров
- Проверяется, является ли название хотя бы одной из газет Правда
Если условие выполняется, то выводится сообщение Да, Петров выписываетПравду`.