Question

Решите на Паскале пожалуйстаСначала задаётся число N (1 ≤ N ≤ 100), а затем N целых чисел, по модулю не превышающих 1000.Выведите N чисел в порядке неубывания.Ввод53 1 2 4 2вывод1 2 2 3 4

Answer 1

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

begin
var a:= ReadArrInteger(ReadInteger('n ='));
Sort(a);
Writeln(a);
end.