Неотрицательные элементы массива m уменьшить в три раза, остальные — возвести в квадрат - Pascal

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

Из элементов массива m сформировать массив n того же размера по правилу: неотрицательные элементы массива m уменьшить в три раза, остальные — возвести в квадрат.

Решение задачи: «Неотрицательные элементы массива m уменьшить в три раза, остальные — возвести в квадрат»

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

for i:=1 to n do
if  x[i]<=0 then 
 a[i]:=x[i]/3 
else
 a[i]:=x[i]*x[i];

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

Задана переменная n типа целое число (integer), которая содержит количество элементов в массиве x.
Задана переменная x типа массив целых чисел (array of integer), которая содержит исходные данные.
Задана переменная a типа массив целых чисел (array of integer), которая будет содержать результаты обработки исходных данных.
Задано условие if x[i]<=0 then, которое проверяет, является ли текущий элемент массива x неотрицательным.
Если условие истинно, то выполняется выражение a[i]:=x[i]/3, которое уменьшает значение текущего элемента массива x в три раза и записывает результат в элемент массива a.
Если условие ложно, то выполняется выражение a[i]:=x[i]*x[i], которое возводит значение текущего элемента массива x в квадрат и записывает результат в элемент массива a.
Цикл for i:=1 to n do выполняет указанные действия для каждого элемента массива x.