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.
|