program tretas;
Var Integer : integer;

Begin

Integer := 0;

End.