15 lines
149 B
ObjectPascal
15 lines
149 B
ObjectPascal
|
//uses my_unit;
|
||
|
|
|
||
|
|
{$define GO}
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
{$ifdef PI}
|
||
|
|
{$ifndef PI}
|
||
|
|
write('a');
|
||
|
|
{$else}
|
||
|
|
writeln('else');
|
||
|
|
{$endif}
|
||
|
|
{$endif}
|
||
|
|
|
||
|
|
end.
|