Решите на паскале.
Дано пятизначное число, если первая цифра больше последней то найти произведение 2-й и 4-й цифр, иначе поменять местами 3-ю и 5-ю цифры местами.

Ответ:

var

  a:integer;

begin

  readln(a);

  if ((a div 10000) > (a mod 10)) then

     writeln(((a div 1000) mod 10) * ((a mod 100) div 10))

 else writeln(((a div 100) mod 10) * (a mod 10));

end.