18 lines
191 B
ObjectPascal
18 lines
191 B
ObjectPascal
var
|
|
a,b,c,l: longint;
|
|
d,e: byte;
|
|
f,g: smallint;
|
|
i: integer;
|
|
|
|
begin
|
|
i := d + e;
|
|
l := l + i;
|
|
i := l + i;
|
|
a := 1;
|
|
b := 1;
|
|
c := 1;
|
|
d := 2;
|
|
e := 3;
|
|
f := 4;
|
|
g := 5;
|
|
end. |