16 lines
190 B
Plaintext
16 lines
190 B
Plaintext
let
|
|
const MAX ~ 10;
|
|
const MIN ~ 4;
|
|
var n, m: Integer
|
|
in begin
|
|
n := 2 * MAX;
|
|
let
|
|
var q: Integer;
|
|
const MIN ~ MIN - 1
|
|
in
|
|
q := 3 * n;
|
|
putint(n);
|
|
putint(MAX);
|
|
putint(MIN);
|
|
end
|