имя программы; подключение библиотек; раздел типов мой_тип=запись телефон:строка(6); год,месяц,день,час,минута,код,продолжительность:целый_тип; телефон1:строка(7); категория:булева переменная;//true срочный false обычный) тариф:вещественный_тип; конец_записи; раздел переменных n,i,month:целый_тип; a:массив[индексация]элементов типа "мой_тип"; b:переменная типа "мой_тип"; начало блока кода ввод количества записей(n); запрос какой требуется месяц(month); начало цикла с параметром(i от 1 до n); ввод всех полей i элемента массива; //проверка на корректность ввода параметров конец цикла; присвоим b значение первой записи массива a; начало цикла с параметром(i от 1 до n); если (month=месяцу i элемента массива a)и(разговор срочный)и(продолжительность i элемента массива a>продолжительность переменной тогда b присваиваем значение i элемента массива a; конец цикла; вывод поля дата переменной b; ожидание нажатия клавиши; конец программы.