Решите на паскале. Дано пятизначное число, если первая цифра больше последней то найти произведение 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.