Ввести четырехзначное целое число и определить яявляется ли число перевертышем( такими например являются числа 6666 и 3223).

не правильно...

И почему все считают, что указывать языки - не царское дело?.. Ну ладно, вот на PascalABC.NET:var  n: integer;begin  readln(n);  writeln((n mod 10) * 1000 + (n div 10 mod 10) * 100 + (n div 100 mod 10) * 10 + (n div 1000) * 1 = n ? 'Yes' : 'No');end.

Pascal ABCvar x:integer;beginwriteln ('Введите четырёхзначное число');readln(x);if (x div 1000 <> 0) and (x div 10000 = 0) then beginif ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) thenwriteln ('Является перевёртышем') elsewriteln ('Не является перевёртышем');end else writeln ('Неверный ввод');end.