Ввести с клавиатуры три числа, и вывести их в порядке убывания.

Самое простое, чтоб без заморочек, занести в массив и отсортировать его var     a: array[1..3]of real;     i,j: integer;     p: real; begin for i: =1 to 3 do   begin     write('введите число: ');     readln(a[i]);   end; for i: =1 to 3 do   for j: =1 to 3 do       if a[j]< a[i] then         begin         p: =a[i];         a[i]: =a[j];         a[j]: =p;         end; for i: =1 to 3 do  write(a[i],' ') end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.