{mode objfpc}
{$apptype console}
var ch: Char;
begin
  for ch in 'abc' do Writeln(ch);
end.