C++ :

#include<iostream>
#include<cstdio>
#include<cstring>
using namespace std;
int main()
{
	char s[100];
	int i, j, b, c = 0;
	cin >> s;
	int l = strlen(s);
	for ( j = 0; s[j]!='.'&&s[j]!='\0'; j++)
	{
		;
	}
	for (i = 0, b = j - 1; i < j; i++, b--)
	{
		if (s[i] == s[b])
			c++;
	}
	if (c == i)
	{
		cout << "Yes" << endl;
	}
	else
	{
		cout << "No" << endl;
	}
	return 0;
}

Pascal :

var
  s:string;
procedure datain;
var
  ch:char;
begin
  read(ch);
  while ch<>'.'do
    begin
      s:=s+ch;
      read(ch);
    end;
end;

procedure work(s1:string);
var
  flag:boolean;
  n,i:integer;
begin
  flag:=true;
  n:=length(s1);
  for i:=1 to (n div 2) do
    if s1[i]<>s1[n-i+1] then
      begin
        flag:=false;break;
      end;
  if flag=true then
    writeln('Yes')
  else
    writeln('No');

end;
begin
  datain;
  work(s);
end.