8 lines
212 B
ObjectPascal
8 lines
212 B
ObjectPascal
begin
|
|
var f: procedure(x: integer);
|
|
var sum := 0;
|
|
f := x -> begin sum += x end; // ранее
|
|
f := x -> (sum += x); // сейчас
|
|
// f := x -> sum += x; // ошибка компиляции
|
|
end.
|