На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (Если забыли, то посмотрите домашнее задание на урок). Создадим списки для дней недели: Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday.

Для начала, на каждый день будем назначать одно дело.

1) Заполните список строками "нет дел" (подойдет цикл for)

2) Создайте команду "Изменить дело" (edit)

3) Создайте команду "Вывести календарь на неделю" (print

НАПРИМЕР:
а - точка
б - три точки
в - четыре точки
г - г в другую сторону и точки с боку
д - солнышко
е - о точки с низу
ё - о точки с верху
ж - ~  ( значок пример если что))
з - з только в обратную сторону
и - палка
й- палка и точка
к- перечёркнутый круг
л - круг
м - знак равно
о - запятая
п - #
р - значок плотности
с - знак доллора $
т - "крыша домика" типо л только по длиннее и постранее
у - <>
ф- ><
х - две точки
ц - :;
ч - ;:
ш - перевернутая ш
щ - перевернутая ш точки снизу и с верху
ъ - (
ы - ()
ь - )
э - значок обьёма
ю -V точки с верху
 я - V точки с низу

Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
    marks_average: Array[1..pupils] of Real;
    i, j: Integer;
    all_marks_average: Real;
Begin    For i := 1 To pupils Do
    Begin
        WriteLn('Введите через пробел оценки ученика №', i);
        For j := 1 To subjects Do
            Read(marks[i, j]);
    End;
    For i := 1 To pupils Do
    Begin
        For j := 1 To subjects Do
            marks_average[i] := marks_average[i] + marks[i, j];
        marks_average[i] := marks_average[i] / subjects;
    End;    For i := 1 To pupils Do
        all_marks_average := all_marks_average + marks_average[i];
    all_marks_average := all_marks_average / pupils;
    WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
End.