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

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