Составьте программу, которая позволяет ввести с клавиатуры две строки а и б, а затем определяет равны ли они. Пример : голубь(строка а), лебедь ( строка б), пример вывода — да/нет. Срочно очень

vara,b:string;c,k:integer;beginwrite ('Строка А:');readln (a);write ('Строка В:');readln(b);c:=length(a);k:=length(b);if c = k then writeln ('YES')elsewriteln ('NO')end.