如何在单个read（）中输入由空格分隔的多个char和longint？

Question

我试过了，但它给了我运行时错误106.

select artnumber, max(modtime) as modtime
from ...
where ...
group by artnumber
order by artnumber;

输入

var
  a, c: char;
  b, d: longint;
begin
  read(a, b, c, d);
  write(a, ' ', b, ' ', c, ' ', d);
end.