И вот с этим тоже... умоляю:(((

const

 SzM = 10;

 SzN = 10;

var

 a: array[1..SzM, 1..SzN] of integer;

 m, n, i, j, Count: integer;

begin

 m := 3;

 n := 4;

 {ввод массива}

 for i := 1 to m do

   for j := 1 to n do

     a[i, j] := (i - 1) * n + j;//если ввод вручную, тогда Read(a[i,j])

 {вывод массива}  

 for i := 1 to m do

 begin

   for j := 1 to n do

     Write(a[i, j]:4);

   Writeln;

 end;

 {подсчет четных}

 for i := 1 to m do

   for j := 1 to n do

     if a[i, j] mod 2 = 0 then Count += 1;

 Write('количество четных: ', Count)

end.

Как-то так:

//fpc 3.0.0

program HelloWorld;

var

 total: integer;   // результат суммирования

 ent, last: integer;  // ввод, подсчет

begin

total := 0; // начальная сумма

// 30 можно поменять на любое число, чтоб цикл не шел вечно. А если надо вечно, то поменять условие на 1 < 2

while total <= 30 do

begin

 // просим число

 write('Enter number: ');

 readln(ent);

 // получаем только 4-х значные

 if (ent < 1000) or (ent > 9999) then

  Continue;

 // берем последнюю цифру

       last:= ent mod 1000;

       last:= last mod 100;

       last:= last mod 10;

       // складываем

       total:= total + last;

       // выводим результат

 writeln(total);

end;    

end.

Результат можно посмотреть тут: https://rextester.com/ENTY66578