Ребята помогите пожалуйста! Для тех кто знает это очень легко! Описать строки в задаче! ПАСКАЛЬ!!!!

program sss; - программа sss
cоnst n=20; - размер массива 20 элементов
var a:array[1..n] of byte; - задаём массив от 1 до n (20) целых чисел от 0 до 255
j,res:integer; j - счётчик res - результат
begin
res:=0; - предположим, что результат = 0
for j:=1 to n do - для значений счётчика от 1 до n
readln(a[j]); - ввести элементы массива

for j:=1 to n do - для значений счётчика от 1 до n
if a[j]=2 then res:=res+1; - если значение массива = 2, то увеличиваем результат

writeln('до второго экзамена не допущено ',res,' человек'); - выводим результат
end.

program sss; // Название программы, не обезательно
cоnst n=20; // объявляем нонстанту, переменная которую нельзя изменить после объявления
var a:array[1..n] of byte; // объявляем переменную 'a' типа массива, а тип данных в массиве бит
j,res:integer; // две переменные типа integer
begin // объявление переменных закончено, описываем тело программы
res:=0; // инициализируем переменную res и присваиваем ей значение 0
for j:=1 to n do // объявляем цикл от единицы до 20
readln(a[j]); // считываем нажатия на клавиатуре и код нажатой кнопки записываем в массив по очереди

for j:=1 to n do // опять цикл
if a[j]=2 then res:=res+1; // проходим цикл и каждое значение проверяем не равно ли оно двум, если равно двум то увеличиваем на единицу переменную res

writeln('до второго экзамена не допущено ',res,' человек'); // выводим текст и значение переменной res
end. // конец программы кто компеировал в голове молодец, а кто-то обломался :_)

program sss; //программа sss
cоnst n=20; //константа n присваиваем 20
var a:array[1..n] of byte; //раздел переменных, заявляем массив типа byte
j,res:integer; //заявляем 2 цельночисленные переменные
begin //поехали
res:=0; //присваиваем переменной 0
for j:=1 to n do //цикл от 1 до n
readln(a[j]); //вводим j-тый элемент нашего массива

for j:=1 to n do //такой же цикл
if a[j]=2 then res:=res+1; //если элемент равен 2, прибавляем к переменной res 1

writeln('до второго экзамена не допущено ',res,' человек'); //выводим текст и переменную
end.//конец

program sss; - название программы
cоnst n=20; - переменная
var a:array[1..n] of byte; - типо var раздел переменных и так каждую строчку описать
j,res:integer; - присвоить
begin - начало
res:=0;
for j:=1 to n do для, до
readln(a[j]);

for j:=1 to n do
if a[j]=2 then res:=res+1; условие если.. .

writeln('до второго экзамена не допущено ',res,' человек'); вывод на экран
end. - конец программы