begin
  foreach c:char in ['a','b','c'] do
    Write(c);
end.