Задача на Паскале. Пользователь вводит букву, а программа выводит школьные предметы, которые начинаются на эту букву.

Предыдущий
вопрос Следующий
вопрос

program schoolSubjects;

uses crt;

var letter: char;

begin
clrscr;

writeln('Enter a letter: ');
readln(letter);
case upcase(letter) of
'A': writeln('Algebra, Astronomy');
'B': writeln('Biology');
'C': writeln('Chemistry, Computer Science, Calculus');
'E': writeln('English');
'G': writeln('Geography');
'H': writeln('History');
'M': writeln('Mathematics');
'P': writeln('Physics');
'S': writeln('Spanish');
else writeln('No school subjects start with this letter.');
end;
readkey;

end.