14 lines
162 B
ObjectPascal
14 lines
162 B
ObjectPascal
|
program main;
|
||
|
const
|
||
|
AA = 4;
|
||
|
var
|
||
|
a, b, c, d: integer;
|
||
|
begin
|
||
|
b := 8;
|
||
|
c := 12;
|
||
|
a := b + c;
|
||
|
d := 9;
|
||
|
a := (AA - b) * c;
|
||
|
write(a);
|
||
|
end.
|