program test1;
var a:integer;
begin
a:=-3;
end.