program task1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

type
    DynArr = Array of Integer;

function Input(): Integer;
var
    Value: Integer;
    NotCorrect: Boolean;
begin
    NotCorrect := true;
    Value := 0;
    while(NotCorrect) do
    begin
        try
            Readln(Value);
            NotCorrect := false;
        except
            Writeln('Все вводимые данные должны быть целыми числами. Повторите ввод');
        end;
    end;

    Input := Value;
end;

function SetMarks(Count: Integer): DynArr;
var
    Mark, i: Integer;
    Arr: DynArr;
begin
    SetLength(Arr, Count);
    i := 0;
    while(i < Count) do
        begin
        Writeln('Введите отметку');
        Mark := Input();
        if((mark < 1) or (mark > 10)) then
        begin
            Writeln('Отметки должны быть от 1 до 10 баллов');
            i := i-1;
        end
        else
            Arr[i] := Mark;
        i := i+1;
    end;

    SetMarks := Arr;
end;

function LessThan(const Arr: DynArr; Num: Integer): Boolean;
var
    i: Integer;
    Res: Boolean;
begin
    Res := false;
    for i := 0 to High(arr) do
    begin
        if(Arr[i] < Num) then
            Res := true;
    end;
    LessThan := Res;
end;

procedure Main();
var
    MarksCount: Integer;
    Marks: DynArr;
    BadStudent: Boolean;
begin
    Writeln('Данная программа проверяет студента на успеваемость на основании его отметок');
    Writeln;
    Writeln('Введите количество отметок');
    MarksCount := Input();
    Marks := SetMarks(MarksCount);
    BadStudent := LessThan(Marks, 4);
    if(BadStudent) then
        Writeln('Студент является неуспевающим')
    else
        Writeln('Студент является успевающим');
    Readln;
end;

begin
    Main();
end.