Задачи на темы: "факториал, массивы, текст" - Pascal

Формулировка задачи:

1)Вычислить n! 2)Сосчитать количество элементов матрицы, значения которых не превышают заданное число 2)Поменять местами самое длинное и самое короткое слова при условии, что такие слова единственные

Решение задачи: «Задачи на темы: "факториал, массивы, текст"»

Листинг программы

program sf;
var
a:array [1..10] of integer;
i,max,g,c:integer;
begin
c:=0;
writeln('BBeDute max 4uclo');
readln(g);
Randomize;
for i:=1 to 10 do
  begin
   a[i]:=random(100);
   write(a[i]:3);
   if a[i]<g then inc(c);
  end;
  writeln;
  writeln('kol= ',c);
  readln;
  end.

Объяснение кода листинга программы

В этом коде выполняются следующие действия:

Объявляются переменные:
- a: массив из 10 целых чисел, который будет заполняться случайными числами;
- i, max, g, c: целочисленные переменные, используемые для выполнения различных операций.
Переменная c инициализируется значением 0. Она будет использоваться для подсчета количества чисел в массиве, которые меньше заданного значения g.
Выводится сообщение BBeDute max 4uclo, которое, вероятно, является приветствием или заголовком программы.
Пользователю предлагается ввести значение g с помощью функции readln.
Используется функция Randomize для инициализации генератора случайных чисел.
Запускается цикл for, который проходит по каждому элементу массива a.
Каждый элемент массива заполняется случайным числом из диапазона от 0 до 99 с помощью функции random.
С помощью функции write выводится значение каждого элемента массива, дополненное до трех цифр.
Если значение элемента меньше g, то к переменной c прибавляется единица.
По завершении цикла выводится сообщение kol= и значение переменной c.
Программа ожидает ввода пользователя с помощью функции readln.
Код завершается.