Program Week_of_Informatic;

01 листопада 2024
Автор:
 
uses aud403, aud417, aud406, aud431, aud443, KafInf;
 
var
break_organizator: string; // Курс-організатор перерв
 
procedure ПОНЕДІЛОК;
begin
break_organizator := '5 курс'; 

  //Intel - навчання для майбутнього. Захист надбань 5 курсу.
  //aud403 від ранку до смерканку
 shell_execute('Публічний захист проектів Intel');

end;
 
procedure ВІВТОРОК;
begin
break_organizator := '4 курс';
   // aud403, aud417. Початок о 14:14
  shell_execute('Чемпіонат з Counter Strike');
end;
 
procedure СЕРЕДА;
begin
break_organizator := '3 курс';
  // aud417. Початок о 14:24

  shell_execute('Олімпіада з спортивного програмування');
end;

 
procedure ЧЕТВЕР;
begin
break_organizator := '2 курс';
// aud431. Початок о 14:24
shell_execute('Своя гра по-фізматівськи');
end;
 
procedure П'ЯТНИЦЯ;
begin
break_organizator := '1 курс';
// aud443. 
shell_execute('Відкриття музею');
end;
 
begin
case GetSystemDay of
Monday:
 begin
  ПОНЕДІЛОК;
  break;
 end;
Tuesday:
  begin
  ВІВТОРОК;
  break;
 end;
Wednesday:
  begin
  СЕРЕДА;
  break;
  end;
Thursday:
 begin
  ЧЕТВЕР;
  break;
  end;
Friday:
  begin
  П'ЯТНИЦЯ;
  break;
 end;
end;
end.