mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 11:08:15 +02:00
15 lines
147 B
ObjectPascal
15 lines
147 B
ObjectPascal
const
|
|
nl=#10;
|
|
type
|
|
cs=set of char;
|
|
|
|
function p(c:cs):boolean;
|
|
begin
|
|
p:=(#10 in c);
|
|
end;
|
|
|
|
begin
|
|
if p([#1..#255]-[nl]) then
|
|
halt(1);
|
|
end.
|