3 задачи по Pascal. Действия с числами из интервала

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

1)Найти сумму и среднее арифметическое чисел. Числа выбираются из интервала [10,b]. 2)Найти произведение чисел. Числа выбираются из интервала [a,10]. 3)Найти количество неотъемлимых чисел. Числа выбираются из интервала [-10,b].

Решение задачи: «3 задачи по Pascal. Действия с числами из интервала»

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

var
  p,i,a: longint;
begin
  repeat
    write('Г‚ГўГҐГ¤ГЁГІГҐ a: ');
    readln(a);
  until a<10;
  p:=1;
  for i:=a to 10 do
    p:=p*i;
  writeln('ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ = ',p);
  readln;
end.

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

В начале кода объявляются три переменные: p, i и a типа longint.
Затем используется цикл repeat-until для чтения значения переменной a от пользователя. Значение должно быть меньше 10.
После этого происходит инициализация переменной p значением 1.
Затем используется цикл for для перебора значений от a до 10 и умножения значения переменной p на текущее значение i.
В конце кода выводится значение переменной p с помощью функции writeln.
Код завершается чтением символа от пользователя с помощью функции readln.