Дана строка написать программу определяющую ли первый и последний символ строки

Var
   s:string;
begin
   readln(s);
   if s[1]=s[length(s)] then write("Yes");
   else write("No");
end.