Вывести на экран в строку через пробел такие трёхзначные числа у которых произведение 1 и 3 цифр равно введённому с клавиатуры числу​

Var 
  r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real;
begin
  read(x1,y1,x2,y2,x3,y3,x4,y4);
  if x1>x2 then r1:=(x1-x2)*(x1-x2)
  else r1:=(x2-x1)*(x2-x1);
  if y1>y2 then r1+=(y1-y2)*(y1-y2)
  else r1+=(y2-y1)*(y2-y1);
  if x3>x4 then r2:=(x3-x4)*(x3-x4)
  else r2:=(x4-x3)*(x4-x3);
  if y3>y4 then r2+=(y3-y4)*(y3-y4)
  else r2+=(y4-y3)*(y4-y3);
  if r1>r2 then writeln('Первый длинней второго') 
  else
    if r1=r2 then writeln('Они равны') 
    else
    writeln('Второй длинней первого');
end.

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3.
Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.

Поэтому алгоритм должен быть вроде :
 1.создаем переменную для хранения суммы
 2.3 раза читаем число, прибавляем его к общей сумме.
 3.Выводим сумму / 3

Вот и сам код, думаю на Паскале сойдет:
begin
var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3
for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin
var num: integer; //Создаем переменную для хранения текущего числа
readln(num); //Считываем его
mid := mid + num; //Присваиваем mid значение mid + num (текущее число)
end;
writeln(mid/3); //Выводим среднее
end.

Примеры:

Ввод: 1,2,3
Вывод: 3
Ведь (1 + 2 + 3) / 3 = 3

Ввод: 5, 10, 20
Вывод: 11.(6)
Ведь (5 + 10 + 20) / 3 = 11.(6)

Ввод: 5, 5, 5
Вывод: 5
и так далее...

|Если не сложно нажми кнопку " " ;)|