program sadna;
const
    SADNA_NUM = 6;
    DAY_NUM = 5;
    MAX_SIZE = SADNA_NUM * DAY_NUM;
type
    sadna_var = 1..SADNA_NUM;
    day_var = 1..DAY_NUM;
    sadna = record
        id : sadna_var;
        day : day_var;
        members : integer;
    end;
    ARRAY_SIZE = 1..MAX_SIZE;
    arr = array [1..MAX_SIZE] of sadna;
var
    m_arr : arr;
    m_count : ARRAY_SIZE;
procedure details_in(var p_arr : arr; var arr_count : ARRAY_SIZE);
    var
        bol : boolean;
        i : integer;
    begin
        bol := true;
        i := 0;
        while((bol = true) and (i < MAX_SIZE)) do
        begin
            inc(i);
            write('הכנס מספר סדנה: ');
            readln(p_arr[i].id);
            write('הכנס יום: ');
            readln(p_arr[i].day);
            write('הכנס מספר משתתפים: ');
            readln(p_arr[i].members);
            if((p_arr[i].id = 0) and (p_arr[i].day = 0) and (p_arr[i].members = 0)) then
                bol := false;
        end;
        if(not bol) then
            arr_count := (i - 1)
        else
            arr_count := i;
    end;
procedure chk_max(p_arr : arr; arr_count : ARRAY_SIZE);
    var
        i : ARRAY_SIZE;
        temp : sadna;
    begin
        for i := 1 to arr_count do
            if (temp.members < p_arr[i].members) then
            begin
                temp.id := p_arr[i].id;
                temp.day := p_arr[i].day;
                temp.members := p_arr[i].members;
            end;
        writeln('לסדנה מספר: ', temp.id, ' ביום: ', temp.day, ' יש הביקוש הכי גבוה');
    end;
procedure chk_tuesday(p_arr : arr; arr_count : ARRAY_SIZE);
    var
        i : ARRAY_SIZE;
        j : integer;
    begin
        j := 0;
        for i := 1 to arr_count do
            if ((p_arr[i].day = 3) and (p_arr[i].members = 0)) then
                inc(j);
        if(j > 0) then
            writeln('ישנה סדנה ביום שלישי, בה אין כל ביקוש');
    end;
begin
    details_in(m_arr, m_count);
    chk_max(m_arr, m_count);
    chk_tuesday(m_arr, m_count);
end.