Ну, наверное это должно выглядеть как то так. Я плохо помню паскаль
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.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(100,998,2).Where(t->t mod (t div 100 + t mod 10)=0);
var i:=0;
foreach var n in s do begin
Print(n); i+=1;
if i=4 then begin i:=0; Writeln end
end;
if i<>0 then Writeln;
end.
Результат
100 102 108 110
120 126 130 132
140 150 160 162
170 180 190 192
196 198 200 204
210 212 216 220
230 232 234 240
250 252 256 260
264 270 272 280
290 292 294 296
300 306 308 330
360 364 390 396
400 402 408 420
424 432 440 460
462 464 468 480
492 500 504 506
510 520 530 532
540 550 560 570
580 590 594 598
600 630 632 636
658 660 672 690
696 700 702 704
770 792 800 804
826 840 848 864
880 896 900 902
918 990