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

Самое простое, чтоб без заморочек, занести в массив и отсортировать его
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]        begin
        p:=a[i];
        a[i]:=a[j];
        a[j]:=p;
        end;
for i:=1 to 3 do write(a[i], )
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.