Разные действия после сравнения двух произвольных чисел введенных с клавиатуры. - Free Pascal

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

Запрашивает с клавиатуры два произвольных числа x и y . Если x больше y, то вычисляет и выводит на экран сумму всех целых чисел от 1 до x , иначе вычисляет и выводит на экран произведение всех целых чисел от x до y.

Решение задачи: «Разные действия после сравнения двух произвольных чисел введенных с клавиатуры.»

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

  Readln(x,y);
  If x>y then Writeln((x+1)*x div 2)
    else
    Begin
      m:=1;
      While x<=y do
      Begin
        m:=m*x;
        Inc(x);
      end;
      Writeln(m);
    end;

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

Readln(x,y); - считывание двух чисел с клавиатуры и сохранение их в переменных x и y
*If x>y then Writeln((x+1)x div 2)** - если первое число больше второго, то выводится среднее арифметическое этих чисел
Else - иначе
Begin - начало блока команд
m:=1; - инициализация переменной m единицей
While x<=y do - пока первое число не станет больше второго
Begin - начало внутреннего цикла
*m:=mx;** - умножение переменной m на первое число
Inc(x); - увеличение первого числа на единицу
end; - конец внутреннего цикла
Writeln(m); - вывод значения переменной m
End; - конец блока команд
В данном коде нет использования функций, процедур и стандартных процедур, поэтому пункты 14-20 не применимы.