Составьте программу сортировки по возрастанию значений трёх переменных: a, d,c.

Var       a, d, c, t: integer; begin       readln(a, d, c);       if a < d then begin t : = a; a : = d; d : = t; end;       if a < c then begin t : = a; a : = c; c : = t; end;       if d < c then begin t : = d; d : = c; c : = t; end;       writeln(a, ' ', d, ' ', c); end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472