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

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  ф1, ф2: РЯД 50 ИЗ ЗНАК;

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

КОН Задание.