Составьте программу в Паскале , которая по фамилии сотрудника университете выводит на экран сведения о нем(факультет, стаж работы, оклад, очередной отпуск). 

Пример программы: program zadacha1; uses crt; var s: string; begin clrscr; write ('ведите фамилию сотрудника: '); readln (s); case s of 'Иванов': writeln ('Факультет: прикладная математика, Стаж работы: 15 лет, Оклад: 15000, Очередной отпуск через 4 месяца'); 'Петров': writeln ('Факультет: экспериментальная физика, Стаж работы: 5 лет, Оклад: 10000, Очередной отпуск через 3 месяца'); end; end. Данные можно изменять, эти здесь просто в качестве примера.