Можете перевести код с Pascal на C++ (Даны три слова. Выяснить, является ли хоть одно из них палиндромом)

[vital_orsha]

Здравствуйте, можете пожалуйста помочь перевести код с Pascal на C++
Даны три слова. Выяснить, является ли хоть одно из них палиндромом
(«перевертышем»), т.е. таким, которое читается одинаково слева направо и справа налево. Определить функцию, позволяющую распознавать слова-палиндромы.

uses crt;
var   s,s1,s2:string;    
function p(x:string):boolean;
var i:integer;
    f:boolean;    
begin
f:=true;;
for i:=1 to length(x) do
 if UpCase(x[i])<>UpCase(x[length(x)-i+1]) then f:=false;
p:=f;
end;    
begin
readln(s);
readln(s1);
readln(s2);
if (p(s))or(p(s1))or(p(s2)) then writeln('yes')
   else writeln('no');
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Stilet]

Перевестить я тебе не буду, а вот дать решение могу: http://www.programmersforum.ru/showthread.php?t=116660

[vital_orsha]

Сообщение от Stilet

Перевестить я тебе не буду, а вот дать решение могу: http://www.programmersforum.ru/showthread.php?t=116660

Ну и на этом спасибо!