Ответ: Var a:longint;BeginRead(a);If (a>=1)and(a<=100) then writeln(‘молодёжь’)elseIf (a>=101)and(a<=200) then writeln(‘взрослые’)elseIf (a>=200)and(a<=250) then writeln(‘пенсионеры’)elseWriteln(‘-‘);End.

Ответ: Язык C++.#include < iostream >using namespace std;int main (){int a;cout << «Введите номер билета: «;cin >> a;cout << «Билет для «;if (a >= 1 && a <= 100)cout << «молодежи.» << endl;else if (a >= 101 && a <= 200)cout << «взрослых.» << endl;else if (a >= 201 && a <= 250)cout << «пенсионеров.» << endl;elsecout << «Некорректный ввод.» << endl;}