После "//" - комментарий (пояснение.)
Советую скопировать написанное в PascalABC и посмотреть там - так нагляднее.
program zadanie123;
const n=4; m=5; //можно заменить. n -кол-во строк, m -кол-во столбцов
var i,j,min: integer; //i счетчик по cтрокам, j счетчик по cтолбикам, min - минимальное значение, с которым будем сравнивать элементы массива, чтобы на его место встал самый маленький элемент.
a:array[1..n,1..m] of integer; //задаем двумерный массив
begin
writeln('Исходный массив:');
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(45+65+1)-65; //диапазон [-65,45] зададим по формуле (b-a+1)+a, где b это 45, a это (-65)
write(A[i,j]:2,'; ');
end;
writeln; //Пропуск строчки. Нужен, чтобы массив отображался матрицей.
end;
writeln;
min:=10000;
writeln('Наименьший четный элемент = ');
for i:=1 to n do begin
for j:=1 to m do begin
if (a[i,j] mod 2=0)and (a[i,j]<min) then //mod 2 =0 это проверка четности. Если число четное и меньше min, оно занимает место переменной min.
min:=a[i,j];
end;
end;
write(min);
end.
Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль
program Help; #Заголовок
var #Раздел с переменными
a, b ,c, summ : real; #Входные переменные и по итогу их сумма, вещественные
begin #Думаю понятно
summ := 0; #Инициализация summ, ибо статическая типизация
writeln('Enter nums'); #Программа попросит ввести числа
readln(a); #Считывание
readln(b); #Считывание
readln(c); #Считывание
if a > 0 then summ += a; #Если переменная а больше нуля, прибавляем её к итоговой переменной
if b > 0 then summ += b; #Аналогично
if c > 0 then summ += c; #Аналогично
write(summ); #Выводим переменную summ на экран
end.
a,b,c,d,e:real;
begin
writeln('Введите проходной бал');
readln(e);
writeln('Введите оценку за 1-й экзамен');
readln(a);
writeln('Введите оценку за 2-й экзамен');
readln(b);
writeln('Введите оценку за 3-й экзамен');
readln(c);
writeln('Введите оценку за 4-й экзамен');
readln(d);
if a+b+c+d>=e then
writeln('Поступит')
else
writeln('Не поступит');
end.