Program polinoms; Var cislo:longint; Function poly (n:longint):boolean; Var a,b:longint; Begin a:=n; b:=0; While a<>0 do Begin b:=b*10+a mod 10; a:=a div 10; End; If n=b then poly:=true Else poly:=false; End; Begin Writeln ('Vvedi cislo'); Readln (cislo); Case poly(cislo) of True:writeln ('Da, palindrom'); False:writeln ('Net, ne palindrom'); End; Readln; End.