Программа в паскале

Question

Программа в паскале

Захар Арсентьев Знаток (421), на голосовании 1 год назад

Дан список предметов и дни недели, в которые проводятся эти
дисциплины: математика - среда и четверг, информатика - суббота и вторник.
физика - понедельник. Составить программу, которая по первой букве названия
предмета или по номеру в списке напечатает название предмета и день его
проведения или вызовет сообщение, что такой дисциплины нет.
Помогите пожалуйста. Если не кодом, то хотя бы наводками как что делать. Спасибо.

Answer 1

program schedule;
var
subject: array[1..3] of string = ('математика', 'информатика', 'физика');
day: array[1..3] of string = ('среда и четверг', 'суббота и вторник', 'понедельник');
input: string;
i: integer;
begin
writeln('Введите первую букву названия предмета или номер в списке:');
readln(input);
case input of
'м', '1': writeln('Математика - ', day[1]);
'и', '2': writeln('Информатика - ', day[2]);
'ф', '3': writeln('Физика - ', day[3]);
else writeln('Такой дисциплины нет');
end;
end.