Создать массив помогите плиз! - Pascal

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

Почти похоже помогите плиз на завтра срочняк надо!!! Создать массив квадратов натуральных чисел, и вывести его элементы кратные 3.

Решение задачи: «Создать массив помогите плиз!»

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

program modzmey;
uses crt;
var
a:array[1..999] of integer;
i,n:integer;
begin
clrscr;
write('Сколько чисел будете вводить? '); read(n);
writeln('Введите массив ');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
a[i]:=sqr(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
write('Элементы массива кратные трём: ');
for i:=1 to n do
if a[i] mod 3=0 then
write(a[i]:4);
end.

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

В данном коде создается программа на языке Pascal под названием modzmey. В первой строке используется библиотека crt, которая является стандартной для языка Pascal. Далее объявляются переменные: a - это массив, который будет содержать числа, i - это переменная для счетчика элементов массива, n - это переменная для количества чисел, которые будут введены пользователем. Затем происходит очистка экрана с помощью функции clrscr. После этого пользователю предлагается ввести количество чисел, которые он хочет ввести. Это число сохраняется в переменной n. Далее пользователю предлагается ввести сами числа. Для этого используется цикл for, который выполняется n раз. В каждой итерации пользователю предлагается ввести число, которое затем сохраняется в соответствующий элемент массива a. После того как все числа введены, происходит преобразование каждого элемента массива в квадрат с помощью функции sqr. Затем снова используется цикл for, который выполняется n раз. В каждой итерации выводится значение элемента массива a с помощью функции write. При этом к каждому значению добавляется префикс 4, чтобы отображалось более наглядно. После этого выводится сообщение Элементы массива кратные трём:. После этого также используется цикл for, который выполняется n раз. В каждой итерации проверяется, делится ли значение элемента массива a на 3 без остатка. Если да, то это значение выводится на экран с помощью функции write, также с добавлением префикса 4. В конце программы выводится символ новой строки с помощью функции writeln. Таким образом, данный код позволяет пользователю ввести массив чисел, преобразовать их в квадраты, вывести на экран элементы массива, которые кратны трём, и очистить экран.