Напишите программу, которая сначала считывает элементы таблицы один за другим, затем выводит их в виде таблицы. Каждый ряд таблицы нужно отсортировать по возрастанию, кроме первого и последнего рядов (в них порядок элементов нужно оставить без изменений). Не используйте обращение к рядам по индексу (к элементам рядов — можно). Формат ввода

На первых двух строках вводятся натуральные числа — количество строк (рядов) в таблице и количество столбцов в таблице.

Далее вводятся сами элементы таблицы — слова, каждое на отдельной строчке; подряд идут элементы сначала первого ряда, затем второго, и так далее.

Формат вывода

Ряды таблицы; каждый ряд — элементы таблицы на одной и той же строке, после каждого элемента выводится символ табуляции.
Пример
Ввод
4
3
удивительная
тройка
треф
счастливая
семёрка
червей
желательный
туз
пик
зловещая
дама
пик

Вывод
удивительная тройка треф
семёрка счастливая червей
желательный пик туз
зловещая дама пик

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

1 input a

2 input b

3 input c

20 if a> b then goto 60

30 if b> c then goto 110

40 max=с

50 goto 120

60 if a> c then goto 90

70 max=с

80 goto 120

90 max=a

100 goto 120

110 max=b

120 if a< b then goto 160

130 if b< c then goto 210

140 min=с

150 goto 220

160 if a< c then goto 190

170 min=с

180 goto 220

190 min=a

200 goto 220

210 min=b

220 print min*max

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.