5.2.1

program p521_5;
type
    student = record
        group: string[20];
        name: string[20];
        year: word;
        sex: char;
        physics, math, info: byte;
        scholarship: real;
    end;
    arr = array[1..30] of student;

var
    A: arr;
    i, n: integer;

begin
    writeln('Введите кол-во студентов');
    readln(n);
    if (n < 1) or (n > 30) then
        writeln('Неверный ввод')
    else
        begin
            // Ввод записи
            for i := 1 to n do
                with A[i] do
                    begin
                        writeln('Введите название группы');
                        readln(group);
                        writeln('Введите фамилию');
                        readln(name);
                        writeln('Введите год рождения');
                        readln(year);
                        writeln('Введите пол');
                        readln(sex);
                        writeln('Введите оценку по физике');
                        readln(physics);
                        writeln('Введите оценку по математике');
                        readln(math);
                        writeln('Введите оценку по информатике');
                        readln(info);
                        writeln('Введите стипендию');
                        readln(scholarship);
                    end;

            // Прога
            for i := 1 to n do
                with A[i] do
                    begin
                        if (physics = 2) or (math = 2) or (info = 2) then
                            begin
                                scholarship := 0;
                                writeln('Фамилия: ', name);
                                writeln('Физика: ', physics);
                                writeln('Математика: ', math);
                                writeln('Информатика: ', info);
                                writeln;
                            end;
                    end;
        end;
end.