{* Задача 429 *}

Unit ZADACH429;
Interface
Implementation
Begin
 writeln('Известны результаты сдачи двух экзаменов дестью студентами. Определить фамилии студентов, сдавших экзамены на тройки.');
End.

Program zadach429;

Uses zadach429.pas; {* Эту строку можно удалить *}
Type {* Используемые типы *}
  PR = Array[1..10, 1..2] Of integer;
  Fam = Array[1..10] Of String [10];
Var {* В работе нам потребуются переменные: *}
  r  : pr;
  st : Fam;
  i  : integer;
  j  : integer;
Begin
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
  Begin
    writeln (‘vvedte familiy’, i - go stydenta’); { вывод данных на экран }
    readln(st[i]); { вычисление }
    writeln(‘vvedite ocenky dannogo stydenta po pervomy exzameny (ot 2 Do
    5)’); { вывод данных на экран }
    readln(r[i, 1]); { вычисление }
    writeln(‘vvedite ocenky dannogo stydenta po vtoromy exzameny (ot 2 Do
    5)’); {вывод данных на экран}
    readln(r[i, 2]); {вычисление}
  End;
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    If (r[i, 1] = 3) And (r[i, 2] = 3) Then
      writeln(‘stydent - troechik - ‘, st[i]); {ввод данных на экран}
End.