Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки - Pascal

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

: Составить список, содержащий сведения об n студентах. Для каждого студента должно быть указано:  фамилия;  ИНН;  дата рождения;  год поступления в университет;  курс;  группа;  оценки текущей сессии по трем предметам. Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая обеспечивает ввод исходных данных, обработку и вывод на экран информации в соответствии с вариантом задания. Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки. Надо само условие в конце

                    Листинг программы
                
 
                        
                          
                    
Const   N=4;
Type
student = Record
fam:String[15];
inn:string[10];
data_r:string[8];
god_p:integer;
kurs:1..5;
gruppa:string[8];
b1,b2,b3:2..5;
End;
Var spisok: Array [1..N] Of student;
i: Integer;
Begin
For i:=1 To N Do
With spisok[i] Do
Begin
Writeln('Введите фамилию');
Readln(fam);
Writeln('Введите ИНН');
Readln(inn);
Writeln('Введите дату рождения(DDMMGGGG)');
Readln(data_r);
Writeln('Введите год поступления');
Readln(god_p);
Writeln('Введите курс');
Readln(kurs);
Writeln('Введите группу');
Readln(gruppa);
Writeln('Введите три оценки');
Readln(b1,b2,b3);
End;

Решение задачи: «Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки»

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

  if (b1 = 5) and (b2 = 5) and (b3 = 5) then

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

Условный оператор if
Переменная b1 со значением 5
Переменная b2 со значением 5
Переменная b3 со значением 5
Логическое И (and) - оператор, который проверяет, равны ли значение b1, b2, и b3 5 Таким образом, код проверяет условие, что все три переменные b1, b2 и b3 содержат значение 5. Если это условие истинно, то выполняется определенное действие в блоке кода, следующем за оператором if.