let
    var a: Integer
in
begin
    a := 0;
    a := a + 1;
    putint(a);
end