mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
11 lines
126 B
ObjectPascal
11 lines
126 B
ObjectPascal
VAR a : BYTE;
|
|
BEGIN
|
|
a := 1;
|
|
IF a=0 THEN
|
|
IF a=1 THEN a:=2
|
|
ELSE
|
|
ELSE a:=3; { "Illegal expression" }
|
|
END.
|
|
|
|
|