Помогите пожалуйста сделайте так чтобы если длинна фамилий одинакова чтобы выводилась не про одинаковую длинну без лишнего 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.