Помогите пж с задание по информатике

var x,i,sum:integer;
mas:array[1..13] of integer;
begin
randomize;

for i:=1 to 13 do
begin
x:=random(0,13);
mas[i]:=x;
if(i mod 2 =0)then
sum:=sum+mas[i];
end;
writeln(mas);
writeln(sum);

end.

program OtvetMailRu;

var
arr: array [1..13] of integer;
i, s: integer;

begin
s := 0;
WriteLn('Исходный массив:');
for i := 1 to 13 do
begin
arr[i] := i - 1;
if not Odd(i) then Inc(s, arr[i]);
Write(arr[i]:3);
end;
WriteLn;
WriteLn('Ответ: ', s);
end.

чой вотак прям взят и вывести тибе суда на екран а учитилю тоже цциффры покажеш?

если нужен исходный код пиши конкретный язык

На условном языке программирования:

1. Определить, что А - массив из 14 элементов, каждый из которых - целое
2. Присвоить переменной i значение 0
3. Присвоить i+1 -му элементу массива А значение i
4. Вывести на очередную строку экрана значение очередного элемента массива (т. е. А [i+1])
5. Увеличить i на единицу
6. Если i больше 14, то перейти к п. 8
7. Перейти к п. 3
8. Присвоить переменной S значение 0
9. Присвоить переменной i значение 2
10. Увеличить S на значение i-го элемента массива А
11. Увеличить i на 2 единицы
12. Если i меньше 14, то перейти к п. 10
13. Вывести на очередную строку экрана значение S
14. Завершить программу

Для красоты можно выводить на экран и текст

const
n = 14;
var
a: array[1..n] of integer;
i,s: integer;
begin
s := 0;
for i:=1 to n do
begin
a[i] := i-1;
if i mod 2 = 0 then
s += a[i];
end;
writeln(a);
writeln(s);
end.