Сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего program poc; var a,b: string; c,d: integer; begin writeln ('введите первую фамилию'); readln (a); writeln ('введите торую фамилию'); readln (b); c: = length (a); d: =length(b); if (c> d) then writeln ('первая фамилия длинее') else writeln ('втарая фамилия длинее'); if (c=d)then writeln ('длинна фамилий оденакова'); end.