15. Табличні величини

Працюємо самостійно, стр. 119

2. 1 д; 2 б; 3 г; 4 а; 5 в

4. Розклад уроків

var

week : array[1..7] of string;

і : integer;

begin

week[1] := ‘алгебра, физика, физика, биология’;

week[2] := ‘литература, литература, физ-ра, труды, химия’;

week[3] := ‘история, геометрия, литература, русский язык, химия’;

week[4] := ‘алгебра, алгебра, география, биология, кл. час’;

week[5] := ‘информатика, информатика, физ-ра’;

week[6] := ‘информатика, русский язык, литература’;

week[7] := ‘выходной’;

repeat

write(‘введите номер дня недели: ‘);

readln(i)

until і in [1..7];

write(week[i]);

readln

end.

Зміст