var Δ : Integer;

Δ := 1;
Inc(Δ);
PrintLn(Δ);