Мне завтра рассказывать программы по турбо паскаль,помогите разьяснить задачи по каждой строчке

program 7; - не заметили взрослые дяди, что идентификатор здесь 7 - а ведь он не может начинаться с цифры.

1.обявление масива
2.цыкл
4.вывод на экран
3.блок условного перехода

учи лучше Си или Java, паскаль в топку)

написана некорректно. Во-первых ты выводишь m1 до того как туда запишешь значение. Во-вторых ты обращаешься к элементу m1[0] которого не существует. В-третих у тебя задание "...Заполнить элементы с четным номером нулями, остальные тройками... ", а у тебя в условии идет проверка значений элементов массива, которые даже не заданы. Имхо прога должна выглядеть так:

program 7;
var
m1 : array [1..13] of integer;
i : byte;
begin
for i:=1 to 13 do
begin
if (i mod 2) = 0
then m1 := 0
else m1 := 3;
writeln (m1);
end;
readln;
end.

01. программа называется 7
02. объявляем переменные
03. m1 - одномерный массив из 13 элементов типа Integer
04. i типа byte
05. начало программы
06. последовательно присваеваем i значения от 1 до 13
07. начало содержимого цикла
08. проверяем если i четное
09. то элементу m1 присваеваем 0
10. иначе элементу m1 присваеваем 3
11. выводим m1 на экран
12. конец содержимого цикла
13. задержка экрана
14. конец программы

program 7; - nazvanie progi
var
m1:array [1..13] of integer; - prisvaivanie peremennoi k opredelennoi sisteme s4isleniya,v dannom sly4ae k integer.
i:byte; - tozhe 4to i v predidyshii raz tol'ko k sisteme byte
begin - nachalo processa raboty programmy
for i=1 to 13 do - peremennaya i bydet menyat' svoi znacheniya v cikle ot 1 do 13
begin - nachalo drygogo processa raboty programmy no yzhe v cikle
readln m1; - vvod peremennoy m1
if m1[i-1] mod 2=0 then m1:=0 - vicheslitelnii process
else m1 :=3 - esli predidyshii process ne udalsya to vipolnyaeca etot
end; - konec deistvii vnytri cikla
writeln m1; - vivod peremennoi
end. - konec progi

NO ya bi napisal tak

programm 7;
var... (tozhe 4to i bilo)
begin
begin
for i:=1 to 13 do
read(m1[ i ]);
end;
for i:=1 to 13 do
begin
if i mod 2 = 0 then m1[ i ] := 3
else m1[ i ] :=0;
write(m1[ i ]);
end;
end.