Составьте программку, которая проверяет введенные числа на четырехзначность, а потом суммирует

Как-то так:

//fpc 3.0.0

program HelloWorld;

var

 total: integer;   // итог суммирования

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

begin

total := 0; // исходная сумма

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

while total lt;= 30 do

begin

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

 write('Enter number: ');

 readln(ent);

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

 if (ent lt; 1000) or (ent gt; 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