Определите основания этих классификаций корова, сорока, ворона, дорога. печь, ночь, дочь, речь. нуль, сто, пятьдесят, тысяча. минута, секунда, час, сутки. февраль, май, август, сентябрь. май, август, октябрь, декабрь. 1, 2, 5, 9. 10, 25, 40, 41. 1, 2, 11, 29.

1 женский род2 женский род 3 скл3 числительное4 время5 месяц6 однозначные числа7 двузначные числа8 не знаю 

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

  uses crt;       var a, b, x, y, newa, newb, newa2, newb2: integer;   begin      write('a='); read(a);       write('b='); read(b);         newa: =3*a; newb: = 3*b;         newa2: =sqr(a); newb2: =sqr(b);           if (a> 0) and (b> 0) then write('newa = ',newa,' | ', 'newb = ',newb)                                                    else write('newa = ',newa2,' | ', 'newb = ',newb2);   end.