mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-10 01:12:37 +02:00
14 lines
146 B
ObjectPascal
14 lines
146 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. |