Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль
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.
После "//" - комментарий (пояснение.)
Советую скопировать написанное в 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.