Если не использовать дополнительных переменных(для чисел),то:
Шестьдесят яблок
60 яблок.
Или, 1 - 001
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
var b:=a.Where((x,i)->i.IsEven).Interleave(a.Where((x,i)->i.IsOdd).Sorted);
if a.Count<>b.Count then b:=b+a.Last;
b.Println
end.
<u>Пример</u>
n= 11
89 78 46 90 11 45 56 94 41 37 77
89 37 46 45 11 78 56 90 41 94 77
Прописать по больничном что сын лев приведи вего имя его