Паскаль / do9 / iriepas201 / Irie Pascal / samples / fmatch

program filematch(output);
begin
   writeln(filematch('*', 'filename'));
   writeln(filematch('a?c', 'abc'));
   writeln(filematch('a?c', 'adc'));
   writeln(filematch('a?c', 'azc'));
   writeln(filematch('a?c', 'azcd'));
   writeln(filematch('a?c', 'az'));
end.