Ввести две фамилии.определить какая фамилия имеет большую длину.результат вывести в виде: Фамилия "Иваненко" имеет больше символов чем "Петров".

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР   ф1, ф2: РЯД 50 ИЗ ЗНАК; УКАЗ   Вывод.Цепь("Введите первую фамилию: ");   Приём.Строка(ф1);   Вывод.Цепь("^Введите вторую фамилию: ");   Приём.Строка(ф2);   ЕСЛИ ДЛИНА(ф1) > ДЛИНА(ф2) ТО     Вывод.Цепь('Фамилия "');     Вывод.Цепь(ф1);     Вывод.Цепь('" имеет больше символов, чем "');     Вывод.Цепь(ф2);     Вывод.Цепь('".')   АЕСЛИ ДЛИНА(ф1) < ДЛИНА(ф2) ТО     Вывод.Цепь('Фамилия "');     Вывод.Цепь(ф2);     Вывод.Цепь('" имеет больше символов, чем "');     Вывод.Цепь(ф1);     Вывод.Цепь('".')   ИНАЧЕ     Вывод.Цепь("Фамилии одинаковой длины.")   КОН КОН Задание.