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

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


34 18 174 14 24 236 114 0
S=312



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.