Выпишите все слова начинающиеся с символа 1

По подробней можно ?

Var
    a: array[1..100, 1..100] of integer;
    i, j, m, n, count2, countx, x: integer;

begin
    {ввод матрицы}
    n := 10;
    
    writeln('Данные матрицы:');
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            a[i, j] := random(200) - 100;
            write(a[i, j]:4, ' ')
        end;
        writeln;
    end;
    
    write('x = ');
    readln(x);
    count2 := 0;
    countX := 0;
    for i := 1 to n do
        for j := 1 to n do
        begin
            if a[i, j] = x then
                countX := countX + 1;
            if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
                count2 := count2 + 1;
        end;
    writeln('countX = ', countX);
    writeln('count2 = ', count2);
end.

price_notebook = float(input("Введите цену тетради: "))

number_notebook = int(input("Введите количество тетрадей: "))

price_cover = float(input("Введите цену обложки: "))

number_cover = int(input("Введите количество обложек: "))

price_pen = float(input("Введите цену ручки: "))

number_pen = int(input("Введите количество ручек: "))

full_price = ((price_notebook * number_notebook) + (price_cover * number_cover) + (price_pen * number_pen))

discount = full_price / 100 * 15

answer = full_price - discount

print("Полная стоимость: ", full_price, "\nСкидка: ", discount, "\nЦена с учетом скидки: ", answer, end='')

Объяснение:

price_notebook = float(input("Введите цену тетради: "))  // Вещественная (с плавающей точкой) переменная, хранящая цену тетради

number_notebook = int(input("Введите количество тетрадей: "))  // Целочисленная переменная, хранящая количество тетрадей

price_cover = float(input("Введите цену обложки: "))  // Вещественная (с плавающей точкой) переменная, хранящая цену обложки

number_cover = int(input("Введите количество обложек: "))  // Целочисленная переменная, хранящая количество обложек

price_pen = float(input("Введите цену ручки: "))  // Вещественная (с плавающей точкой) переменная, хранящая цену ручки

number_pen = int(input("Введите количество ручек: "))  // Целочисленная переменная, хранящая количество ручек

full_price = ((price_notebook * number_notebook) + (price_cover * number_cover) + (price_pen * number_pen))  // Переменная, хранящая полную стоимость всей покупки

discount = full_price / 100 * 15  // Переменная, хранящая 15-ти % скидку

answer = full_price - discount  // Цена с учетом скидки

print("Полная стоимость: ", full_price, "\nСкидка: ", discount, "\nЦена с учетом скидки: ", answer, end='') // Вывод ответа