program tretas;
Var Integer : real;
Var a : Integer;

Begin

Integer := 0;

End.