Var a,b:integer;
begin
read(a,b);
if a > b then writeln(a/b, a)
else writeln(b/a, b);
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите число:');
Swap(s[1],s[s.Length]); Writeln('Результат: ',s);
end.
<u>Пример</u>
Введите число: 73028
Результат: 83027