Составить программку, печатающую значение true, если обозначенное выражение является правильным,

s=input()[:4];

print (s==s[::-1])

program Unnamed;

uses crt;

function IsEqual(arg0 : Integer) : Boolean;

var flag : Boolean;

dig1, dig2, dig3, dig4 : Integer;

begin

dig1 := arg0 mod 10;

arg0 := arg0 div 10;

dig2 := arg0 mod 10;

arg0 := arg0 div 10;

dig3 := arg0 mod 10;

arg0 := arg0 div 10;

dig4 := arg0;

if(dig1 = dig4) and (dig2 = dig3) then

IsEqual := True

else

isEqual := False;

end;

begin

writeln(IsEqual(4334));

end.