Помогите написать программку в Паскаль

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программка не работает, обновите версию!

1. Современное решение (в "одну" строчку)

begin
  Writeln('S=',ReadSeqIntegerWhile(m-gt;mgt;0)
      .Where(m-gt;(m mod 6=0) and (m mod 10=4)).Sum)
end.

Пример
34 18 174 14 24 236 114 0
S=312

2. А так учат в школе...

var
  m,s:integer;
begin
  s:=0;
  repeat
    Read(m);
    if (m mod 6=0) and (m mod 10=4) then s:=s+m;
  until m=0;
  Writeln('S=',s)
end.