ПомогииитеееРешите срочноо

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

1

begin
  var n:=Абс(ReadInteger('Введите 4-х значное число'));
  var d:array[1..4] of integer;
  for var i:=1 to 4 do begin
    d[5-i]:=n mod 10;
    n:=n div 10
    end;
  if (d[1]+d[2]).IsOdd then Writeln(d[3]+d[4])
  else Writeln(d[4]*d[3])
end.

Образцы
Введите 4-х значное число 3528
16

Введите 4-х значное число 1639
12

2

begin
  var n:=ReadInteger('Введите 5-и значное число');
  var s:=Абс(n).ToString;
  if s[3]lt;s[5] then Swap(s[1],s[5])
  else Swap(s[2],s[4]);
  Writeln(s)
end.

Образцы
Введите 5-и значное число 15382
18352

Введите 5-и значное число 13042
23041