fpcsrc/tests/test/tforin13.pp


1
2
3
4
5
6
7
8

{mode objfpc}
{$apptype console}
var
  ch: Char;
begin
  for ch in ['a'..'c', '0'..'3', '_'] do 
    Writeln(ch);
end.