1. Записать в массив 7 целых чисел. Преобразовать массив так, чтобы в нём сначала следовали чётные числа, а за ними – нечётные. Преобразованный массив вывести на экран 2.Записать в массив слово "basic", чередуя его буквы с цифрами. Преобразовать массив так, чтобы в нём осталось только слово. В остальные элементы массива записать пробел. Преобразованный массив вывести на экран. 4.Вводить целые числа до тех пор, пока сумма нечётных чисел не превысит зна¬чения 18 по модулю. Вывести на экран все введённые числа. 5.Вводить латинские буквы и цифры до тех пор, пока сумма введённых чисел меньше 20-ти. Вывести на экран все введённые цифры.

Var x,y,z,Ans:integer;
    u:real;
Begin
  Write('Введите числа x,y,z: ');
  Readln(x,y,z);
  Writeln('Что вычислить из числа ',x,' ?');
  Writeln('1 - sin; 2 - cos; 3 - tg;');
  Readln(Ans);
    case Ans of
    1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
    2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
    3: begin u:=tan(x);  Writeln('tg(',x,') = ',u) end;
    else Writeln('Ошибка!')    end;
  Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
  Writeln('Без модуля - 1; по модулю - 2');
  Readln(Ans);
    case Ans of
     1: begin
         if (u>y) and (u>z) then
 Writeln('Максимальное число - ',u)
          else
                if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
                  else
                      if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
                        else
                            Writeln('Все числа равны.')
        end;
    2: begin
         if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
 Writeln('Максимальное число - ',u)
          else
                if (abs(y)>abs(u)) and (abs(y)>abs(z)) then 
Writeln('Максимальное число - ',y)
                  else
                      if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
 Writeln('Максимальное число - ',z)
                        else Writeln('Все числа равны.')
        end
    end
End.

*.pas прикрепил во вложения

Вес символа в Unicode - 2 байта, или 16 бит, или 2^4 бит.
Информационный объём файла - 15Кбайт, или 15 * 1024 байт, или 15 * 2^10 байт, или 15 * 2^10 * 2^3 бит, или 15 * 2^13 бит.
Одна строка -  64 символа, или 2^6.
Рассчитаем сколько весит одна строка = вес одного символа * кол-во символов = 2^4 * 2^6 = 2^10 бит. 
Найдем кол-во строк = информационный объём файла / вес одной строки = (15 * 2^13) / 2^10 = 15 * 2^(13 - 10) = 15 * 2^3 = 15 * 8 = 120 строк.

В файле 10 страниц, следовательно на одной странице 12 строк.

ответ: 12 строк.