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

Самое простое, чтоб без заморочек, занести в массив и отсортировать его 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.

бег - баг - шаг

море - горе - гора - пора - пара - кара - каша - даша - душа - суша

миг - маг - мак - чак   - чек - век

бант - кант   - карт - корт - кора - коса

шар - пар - паб - раб - руб - куб

муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.