В одновимірному масиві знайти суму найменшого та найбільшого елемента

1)
var s: string;
   p, a: integer;
begin
  read(s);
  p := strtoint(s[1]) * strtoint(s[2]);
  if (p.ToString.Length = 2) then writeln('a)Да')
else writeln('a)Нет');
  write('Введите a:');
  read(a);
  if (a < (strtoint(s[1]) + strtoint(s[2]))) then writeln('б)Да')
   else writeln('б)Нет');
  if ((strtoint(s[1]) + strtoint(s[2])) mod 3 = 0) then writeln('в)Да')
else writeln('в)Нет');
end.
2)
var s:string;
begin
read(s);
if(s.Length=6)then if (strtoint(s[1])+strtoint(s[2])+strtoint(s[3])= strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))then
write('Да')
else write('Нет');
end.

С начало узнаем сколько занимает объем информации одна строка. Умножим количество страниц на количество строк в одной страницы чтобы найти сколько всего строк. 40*4=160 строк.Разделим объем информации на количество строк и узнаем сколько занимает одна строка объем информации. 7200/160=45 байт. переведем их в биты 45*8=360 бит. 64 символа можно закодировать 6 битами т.е. 2 в 6 степени. 1 символ 6 бит. Разделим объем информации одной странницы на объем информации одного символа и получим сколько всего символов в одной строке. 360/6=60 символов.
ответ: в одной строке 60 символов.