mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 17:59:25 +02:00
15 lines
155 B
ObjectPascal
15 lines
155 B
ObjectPascal
{$Q+}
|
|
var i: integer;
|
|
b: byte;
|
|
|
|
begin
|
|
i := 32767;
|
|
i := i + 15;
|
|
b := 255;
|
|
b := b + 18;
|
|
b := 255;
|
|
b := b * 8;
|
|
b := 255;
|
|
b := b * 17
|
|
End.
|