Plus/fi

program plusDemo(input, output, stderr);

var
    x: longint;
    g: set of (foo, bar);
    m: string;
begin
    // unary operator: positive sign
    x := +7;                    // x saa arvokseen positiivisen luvun 7
    x := +$100;                 // x saa arvokseen 256
                                // (dollarin merkki merkitsee heksadesimaaliesitystä luvulle)
    
    // addition
    x := 7 + 7;                 // x saa arvokseen 14
    x := 7 + 7 + 7 + 7 + 7 + 7; // x saa arvokseen 42
    
    // union of sets
    g := [foo] + [bar];         // g saa arvokseen [foo, bar]
    
    // merkkijonojen ja / tai merkkien yhteenliittäminen (FPC / Delphi-laajennus)
    m := 'Hello ' + 'world!';   // m saa arvokseen 'Hello world!'
end.