1) Составьте прграмму, в которой определялось бы является ли введеный символ…

2) var i: integer; begin writeln ('Введите цифру означающюю день недели, например 2-вторник'); readln (i); case i of 1: writeln ('Понедельник: Алгебра, Геометрия, Русский, Физ-ра'); 2: writeln ('Вторник Информатика, История, Изо'); 3: writeln ('Среда, Английский, Искусство'); else writeln ('ERROR'); readln; end; 3) var a: integer; beginwriteln ('Введите ваш возраст'); readln (a); if (a<7) then writeln ('Дошкольник') elseif (a>7) and (a<18) writeln ('Ученик') elseif (a>18) and (a<60) writeln ('Рабтник') elseif (a>65) writeln ('Пенсионер'); readln; end.