Решить по паскалю.с полным решением дано четырехзначное число. найти: а) число, полученное при прочтении его цифр справа налево; б) число, образованное перестановкой двух первых и двух последних цифр заданного числа. например, из числа 4566 получить 6645, из числа 7304 — 473; в) число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа. например, из чис ла 5434 получить 4543, из числа 7048 — 784; г) число, образованное перестановкой второй и третьей цифр заданного числа. например, из числа 5084 получить 5804.

Var
  i,n:integer;
  a:array[1..4] of integer;
begin
  Write('n='); Read(n);
  for i:=1 to 4 do begin
    a[5-i]:=n mod 10;
    n:=n div 10
    end;
  Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
  Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
  Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
  Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.

Пример
n=7048
8407
4870
784
7408

На Java:

class SearchPalin{
 public static void main(String args[]){
  String palinString = new java.util.Scanner(System.in).nextLine();
  System.out.print("\nПалиндром(-ы):\n  ");
  for(int wordStart = 0, wordEnd = 0; wordEnd<palinString.length(); wordEnd++)
   if(wordEnd+1==palinString.length() || palinString.charAt(wordEnd+1)==' '){
 String wordBeginning = "", wordEnding = "";
 for(int wordBe = wordStart;wordBe<wordEnd+1;wordBe++)wordBeginning+=palinString.charAt(wordBe);
 for(int wordEn = wordEnd;wordStart-1<wordEn;wordEn--)wordEnding+=palinString.charAt(wordEn);
 if(wordBeginning.equals(wordEnding)){
  for(int palinWord = wordStart;palinWord<=wordEnd;palinWord++)System.out.print(palinString.charAt(palinWord));
  System.out.print("\n  ");
 } wordStart = wordEnd+2;
   }
 }
}

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).
    Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш