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

Самое простое, чтоб без заморочек, занести в массив и отсортировать егоvar  a:array[1..3]of real;  i,j:integer;  p:real;beginfor 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.