Как-то так:
//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
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.