[pascal] написать программу: известен расход по n горючего в каждом из m автохозяйств. определите для каждого хозяйства вид горючего с наибольшим и с наименьшим расходом.

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к

2000 знаков (но точно не уверен)