Помогите срочно!!!! ДАЮ 20 БАЛЛОВ!!

Составить программу, которая вводит 3 числа и ставит их в порядке убывания

Cпасибо

Я там ошибку сделал, скопируй и вставь заново

Отметь как лучшее

var   a, b, c: integer;   begin   Read(a, b, c);   if ((a > b) and (a > c) and (b > c)) Then     Write(a, ' ', b, ' ', c)   else   if ((b > a) and (b > c) and (a > c)) Then     Write(b, ' ', a, ' ', c)   else   if ((c > a) and (c > b) and (a > b)) Then     Write(c, ' ', a, ' ', b)   else   if ((b > a) and (b > c) and (c > a)) Then     Write(b, ' ', c, ' ', a)   else     Write(a, ' ', c, ' ', b)end.