{* Список с информацией о студентах *}

Unit EKZAMEN;
Interface
Implementation
Begin
 writeln('Список с информацией о студентах, содержащий ФИО, результаты экзаменов и зачетов в последней сессии. Из этого списка сформировать новый список не содержащий студентов, имеющих двойки и незачет.

');
End.

Program Exp_12;

Uses ekzamen.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
label 1, 2;
Type {* Используемые типы *}
  student = Record  fio, zacet : String;
  god_rojd, kurs, ocenka : word;
  End;
Var {* В работе нам потребуются переменные: *}
  a : Array [1..30] Of student;
  i : byte;
  n : byte;
  p : integer;
  s : integer;
  Begin
  1 :  clrscr; {* Очищаем экран *}
  writeln ('ВВЕДИТЕ КОЛЛИЧЕСТВО СТУДЕНТОВ:');
  readln (n);
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
Begin
  write ('ВВЕДИТЕ Ф.И.О. СТУДЕНТА: ');
  readln (a[i].fio);
  write ('ВВЕДИТЕ ОЦЕНКУ ЗА ЭКЗАМЕН: ');
  readln (a[i].ocenka);
  write ('ВВЕДИТЕ РЕЗУЛЬТАТ ЗАЧЕТА (ЗАЧЕТ / НЕ ЗАЧЕТ): ');
  readln (a[i].zacet);
End;
writeln(' ------------------------------------------------------------------------------ ');
writeln(' ------------------------------------------------------------------------------ ');
writeln('ФИО' : 15, '               ', 'ЭКЗАМЕН' : 15, '                     ', 'ЗАЧЕТ' : 8);
writeln(' ------------------------------------------------------------------------------ ');
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
Begin
  writeln (a[i].fio : 14, '           ', a[i].ocenka : 17, '     ', a[i].zacet : 29);
End;
writeln(' ------------------------------------------------------------------------------ ');
writeln(' ------------------------------------------------------------------------------ ');
writeln('ФИО' : 15, '               ', 'ЭКЗАМЕН' : 15, '                     ', 'ЗАЧЕТ' : 8);
writeln(' ------------------------------------------------------------------------------ ');
For i := 1 To 5 Do {* Цикл для i => [1 .. 5] *}
  If (a[i].ocenka > = 3) And (a[i].zacet = 'zacet') Then
    writeln (a[i].fio : 14, '           ', a[i].ocenka : 17, '     ', a[i].zacet : 29);
writeln ('ВЫХОД - 1, НАЧАТЬ ЗАНОВО - 2');
readln(p);
If (p = 1) Then
  exit
Else Goto 1;
  If (a[i].zacet = 'ne zacet') Then
    End......