program t15;
label
  1 ;
var
  x : integer ;
begin
  goto 1 ;
1: x := 1
end.